program temperature;
uses crt;
var F,K:real;
C:integer;
BEGIN
clrscr;
writeln(' PINAKAS ');
writeln('______________________________________________________');
writeln('CELSIUS FARENHEIT KELVIN ');
writeln('======= =========== ======= ');
writeln('______________________________________________________');
FOR C:=1 TO 30 DO
begin
F:=(9*C+160)/5;
K:=373+C;
Writeln(C,' ',F:1:1,' ',K:1:1,' ');
end;
writeln('Bill');
readln;
END.