program penjumlahan dari turbo pascal

uses wincrt ;
var
a,b,c:real;
k:char;label aw;
begin
aw:
writeln ('program penjumlahan');
writeln ('buatan sendiri') ;
write ('masukkan angka pertama:');readln(a);
write ('masukkan angka kedua :') ;readln (b);
c:=a*b;
writeln('hasil kalinya adalah :',c:10:0);
c:=a-b;
writeln('hasil kurangnya adalah :',c:10:0);
c:=a+b;
writeln('hasil tambahnya adalah :',c:10:0);
c:=a/b;
writeln('hasil baginya adalah :',c:10:0);

writeln ('**********************');
writeln ('coba lagi (y/t):');
k:=readkey;if k='y' then goto aw;
writeln;
end.ytyty