Автор - polycov200412
1) s,t:real;
2)stCount:integer;
//комментарии
(stCount-расшифровывается как studentCount,то есть количество студентов)
3)S:=d*f;
//комментарии
write('Сумма: ',S,'рублей');
(Находим сумму:S:=d*f,и выводим ее:write('Сумма: ',S,'рублей');