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

Var tc:integer; tp:real;
begin
for tc:=0 to 10 do begin
tp:=1.8*tc+32; writeln(tc:5,tp:10:2); end;
end.