My site

program ABC;

uses wincrt;

var

a,b,c:integer;

lagi:char;

begin

     repeat

           clrscr;

           writeln('masukkan angka 1?');readln(a);

           writeln('masukkan angka 2?');readln(b);

           c:=a+b;

           writeln('hasilnya adalah=');writeln(c);

           writeln;

           writeln('Apakah Anda mau menghitung lagi?(y/t)');readln(lagi);

           if lagi='t' then

              clrscr;

              gotoXY(30,10);writeln('T E R I M A  K A S I H')

     until(lagi='t');

end.