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

1.var p,s:real; k:integer;beginwrite('цена тетради в клетку = ');readln(p);write('количество тетрадей = ');readln(k);s:=p*k;writeln('Стоимость покупки = ',s:5:2);end.Пример:цена тетради в клетку = 12.5количество тетрадей = 3Стоимость покупки = 37.502.алг Покупканач вещ цена, стоимость  цел кол  вывод "цена тетради в клетку:", нс  ввод цена  вывод "количество тетрадей:", нс  ввод кол  стоимость:=цена*кол  вывод "Стоимость покупки = ", стоимостькон