в паскале обрисовать задачку 4) Человек делает в магазине покупки. Определите

var dengi, a, b, c, d, ostatok: real;
begin
writeln ( Сколько у Вас денег? );
readln ( dengi );
writeln ( Введите цена перчаток: );
readln ( а );
writeln ( Введите цена ранца : );
readln ( b );
writeln ( Введите цена галстука : );
readln ( d );
ostatok: = dengi - a - b - d;
if ostatok lt; 0 then
writeln ( Для вас не хватит денег на данную покупку, для совершения этой покупки Для вас необходимо ещё , абс( ostatok ), рублей )
else
writeln ( У Вас останется , ostatok, рублей );
end.