В паскале!

Известно,

что Покупатель приобрел а кг яблок по цене в руб. и с кг груш по цене d руб.

Покупатель имеет S рублей. Напишите программу, которая определяет, хватит ли у

покупателя средств на данную покупку?

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 > = su then writeln ('dannoy summu hvatit dlya etoy pokypki, vsego za pokupku ', su)

else

writeln ('Etoy symmu ne hvatit dlya pokupki') ;

end.

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 > = m then writeln ('Денег хватит', m)

else

writeln ('Денег не хватит') ;

end.