Помогите разобраться.
Решить задачу, используя оператор Repeat (цикл с постусловием).
Получить таблицу температур по Цельсию от 0 до 100 градусов и их эквивалентов по
шкале Фаренгейта.
Решение через (While (цикл с предусловием)
Program while;
uses crt;
Var Tc:integer
Tf:real
Begin
Tc:=0;
while (Tc <=100) do
Begin
Tf:=(9/5)*Tc+32
writeln (Tc:2, Tf:8:2);
Tc:=Tc+1
end;
end.

Program p1;var Tc:integer;Tf:real;BeginTc:=0;repeatTf:=(9/5)*Tc+32;writeln (Tc:2, Tf:8:2);Tc:=Tc+1;until (Tc=101)end.