Вывести на экран таблицу температур по Цельсию от 0 до 10 градусов и их эквивалентов по шкале Фаренгейта, используя фотрмулу tp=1.8tc+32

var tc:integer; tp:real;beginfor tc:=0 to 10 do begintp:=1.8*tc+32; writeln(tc:5,tp:10:2); end;end.