В паскале!!!Знаменито,что Клиент заполучил а кг яблок по стоимости в руб.

Program one;
var s,a,b,c,d,m:real;
begin
writeln('Введите стоимость яблок , груш ');
readln(s,a);
writeln('Введите кол-во яблок , груш в кг  ');
readln(b,c);
m:=(a*b)+(c*d);
if s gt;= m then writeln('Средств хватит',m)
else
writeln('Средств не хватит');
end.

Program cena;
uses crt;
var
s,a,b,c,d,su:real;
begin
clrscr;
writeln('Cymma kotopaya ectb y pokypatelya: ');
read(s);
writeln('Ckolko priobel yablock (kg): ');
read(a);
writeln('Cena yablock:');
read(b);
writeln('Ckolko priobrel grush(kg): ');
read(c);
writeln('Cena grush: ');
read(d);
su:=(a*b)+(c*d);
if s gt;= su then writeln('dannoy summu hvatit dlya etoy pokypki, vsego za pokupku ',su)
else
writeln('Etoy symmu ne hvatit dlya pokupki');


end.