var
C:integer;
begin
C := 0;
while C <= 100 do
writeln('C = ', C, ' F = ', C * 1.8 + 32);
C := C + 5;
end;
readln;
end.
var
C:integer;
begin
C := 0;
while C <= 100 do
begin
writeln('C = ', C, ' F = ', C * 1.8 + 32);
C := C + 5;
end;
readln;
end.