Procedure

15 03 2010

uses crt;
var
p,x,y:byte;
procedure tambah(a,b:byte);
begin
p:=a+b;
writeln(‘X+Y=’,p);
end;
begin
clrscr;
write(‘X=’);readln(x);
write(‘Y=’);readln(y);
tambah(x,y);
readln;
end.


Actions

Information

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s




%d bloggers like this: