Напечатать перевод температуры из градусов по шкале Цельсия (С) в градусы по шкале Фаренгейта (F) для значений температуры от 00 С до 400 С с шагом 50 С. Формула перевода F=1,8 С+32. Паскаль. Циклы с условием

program zz1;

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

begin

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

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

begin

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

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

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

end;

end.