const h=1;
var a,b:integer;
c,f:real;
begin
writeln('Введіть значення а');
read(a);
writeln('Введіть значення b');
read(b);
writeln('Введіть значення С');
read(c);
writeln('Фаренгейт Цельсій');
for a:=a to b do begin
f:=1.8*c+32;
writeln(f:4:2,' ',c:4:2);
c:=c+h;
end;
readln;
end.