program u413c;
{this program will read in a list of cities, each city followed by
a temperature in degrees Farenheit
It will print out a nice report of cities, their temperatures in
degrees Farenheit and Centigrade}

var city:string;
temperatureF:real;
temperatureC:real;
linecount:integer;
input_file,report:text;
begin

assign(input_file,'u413c.txt');
reset(input_file);

assign(report,'u413c.out');
rewrite(report);

linecount:=51;
readln(input_file,city);
read(input_file,temperatureF);
while(city<>'') do begin
if linecount=51 then begin {new page}
write(report,chr(12));
write(report,'city':20,'':5,'Temperature (degrees F)':30,'':5,
'Temperature (degrees C)':30);
writeln(report);
write(report,'____':20,'':5,'_______________________':30,'':5,
'_______________________':30);
writeln(report);
linecount:=0;
end;
TemperatureC:=5.0/9.0*(TemperatureF-32);
write(report,city:20,'':5,TemperatureF:30:1,'':5,TemperatureC:30:
1);
writeln(report);
readln(input_file);
read(input_file,city);
read(input_file,TemperatureF);
linecount:=linecount+1;
end;
close(report);
end.