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