var 
first, last, i: integer;

begin
  
first := 15;
last := 30;
 
write ('Таблица перевода из градусов цельсия в градусы фаренгейта');
 
for i := first to last do
writeln(i,' гр.цельсия = ',i*1.8+32,' гр. фаренгейта');

end.