Напечатать перевод температуры из градусов по шкале Цельсия (С) в градусы

program zz1;

var c, s:real; // задаем переменные не целого типа

begin

c:=0; // задаем изначальное значение для температуры по Цельсию

while c lt;= 400 do // организуем цикл, пока температура по Цельсию не достигнет последнего значения

begin

s:=1.8 * c + 32; // получаем температуру по Фаренгейту, используя заданную формулу для перевода

writeln( для температуры по Цельсию = , c,  градусов температура по Фаренгейту = , s, градусов );  // выводим ответ

c:=c + 50; // увеличиваем температуру по Цельсию на шаг

end;

end.