В паскале!!! Известно, что Покупатель приобрел а кг яблок по цене в руб. и с кг груш по цене 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.