Паскаль абс. нет у меня выводит строка имела неверный формат (строка где tovar) var money, cost,summa,tovar : real; count : integer; begin writeln('введите исходные данные: '); writeln('какой товар вы покупаете? '); readln(tovar); writeln('по какой цене? '); readln(cost); writeln('сколько штук? '); readln(count); summa : = cost*count; writeln('ваш товар - ', tovar, '. стоимость покупки: ',summa: 0: 2); writeln('сколько денег даете? '); readln(money); if money > summa then writeln('ваша сдача: ', money-summa) else end.

Var
money,cost,summa: real; 
count : integer;
tovar : string;
begin writeln('Введите исходные данные: '); 
writeln('Какой товар вы покупаете? ');
readln(tovar);
writeln('По какой цене? ');
readln(cost); 
writeln('Сколько штук? ');
readln(count); 
summa := cost*count; 
writeln('Ваш товар - ', tovar, '. Стоимость покупки: ',summa:0:2); 
writeln('Сколько денег даете? '); 
readln(money); 
if (money >= summa) 
then writeln('Ваша сдача: ',money-summa)  
else writeln ('Вам нехватает ',summa-money) end.