Помогите пожалуйста,даю 50 баллов Известна цена тетради в клетку и количество купленных тетрадей необходимо вычислить стоимость покупки задайте имена переменных и определит их тип

Вопрос школьника по предмету Информатика

Помогите пожалуйста,даю 50 баллов
Известна цена тетради в клетку и количество купленных тетрадей необходимо вычислить стоимость покупки задайте имена переменных и определит их тип

Ответ учителя по предмету Информатика

1.

var p,s:real; k:integer;

begin

write(‘цена тетради в клетку = ‘);

readln(p);

write(‘количество тетрадей = ‘);

readln(k);

s:=p*k;

writeln(‘Стоимость покупки = ‘,s:5:2);

end.

Пример:

цена тетради в клетку = 12.5
количество тетрадей = 3
Стоимость покупки = 37.50

2.
алг Покупка
нач 
вещ цена, стоимость  
цел кол
  вывод «цена тетради в клетку:», нс
  ввод цена
  вывод «количество тетрадей:», нс
  ввод кол
  стоимость:=цена*кол
  вывод «Стоимость покупки = «, стоимость
кон