konvert suhu

program konvert;
uses wincrt;
var
 celcius,fah :real;
 lagi        : char;
begin
 lagi:='Y';
 while (lagi='Y') or (lagi='y')  do
 begin
  clrscr;
  write('nilai celcius');
  readln(celcius);
  fah :=1.8 * celcius + 32;
  writeln;
  writeln('fahrenheit=',fah:7:2);
  writeln;
  write('menghitung lagi(Y/T)?');
  readln(lagi);
 end;
end.