uses crt;
var
a,b,c,:byte;
begin
clrscr;
{memberi nilai input}
a:=5;
b:=10;
{memproses nilai input}
c:=a+b;
{mencetak nilai input dan output}
writeln('Nilai A='a,);
writeln('Nilai B='b,);
writeln('Hasil A + B='c,);
readln;
end.
var
a,b,c,:byte;
begin
clrscr;
{memberi nilai input}
a:=5;
b:=10;
{memproses nilai input}
c:=a+b;
{mencetak nilai input dan output}
writeln('Nilai A='a,);
writeln('Nilai B='b,);
writeln('Hasil A + B='c,);
readln;
end.
Turbo Pascal
0 komentar:
Post a Comment