Программа в pascal, переводящая градусы цельсися в градусы фаренгейта и градусы кельвина.f=1.8c+32 , где f-градусы фаренгейта, с-градусы цельсия.k=c+273,где k-градусы кельвина,с-градусы цельсия

var   c, k, f: real; begin   Write('Введите температуру в градусах Цельсия: ');   Readln(c);   k := c + 273;   f := 1.8 * c + 32;   Writeln('По шкале Кельвина: ', k:0:1, ', по шкале Фаренгейта: ', f:0:1) end. Тестовое решение: Введите температуру в градусах Цельсия: 36.6 По шкале Кельвина: 309.6, по шкале Фаренгейта: 97.9