Паскаль абс. нету меня выводит строка имела неверный формат (строка где tovar)var money,...

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.

Comments

↓↓↓

---

при запуске программы две строки выводятся на экран (Введите исходные данные: и Какой товар вы покупаете?) ???

---

ну это и есть исходные данные

---

исходные данные:товар,цена и т.дт

---

Программу запускаем Эти строчки печатаются программой?

---

да

---

Вводите ТЕТРАДЬ Появляется фраза По какой цене?

---

вводишь цену

---

тетради

---

посмотрите в строке writeln('Ваш товар- ' tovar ..... вместо точки должна быть запятая

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.