Question

паскаль абс. нет
у меня выводит строка имела неверный формат (строка где 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.

Answer 1

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.