Perkalian Ulang

Program Perkalian_ulang;
uses WinCrt;
Var
  a,b: Integer;
  Lagi, Tidak : Char;
begin
  lagi := 'Y';
  While (Lagi='Y') or (Lagi='y') do
 begin
  clrscr;
  Writeln('Angka awal');
  Readln(a);
  Writeln('Angka Kedua');
  Readln(b);
  writeln('______ = ');
  Writeln(a*b);


  Begin
   Writeln('Mengulang Lagi(Y/T)?');
   readln(Lagi);
   clrscr;
  End;
 end;
end.