program luaspp;
uses crt;
var
p,l,luas:integer;
begin
clrscr;
write('p=');
readln(p);
write('l=');
readln(l);
luas:=(p*l);
writeln('luas persegi:',luas);
readln;
end.
Selasa, 15 Februari 2011
Listing tugas pertama
Diposting oleh Vibri Ariyaningrum di 9:35 AMprogram luaspp;
uses crt;
var
p,l,luas:integer;
begin
clrscr;
write('p=');
readln(p);
write('l=');
readln(l);
luas:=(p*l);
writeln('luas persegi:',luas);
readln;
end.
Subscribe to:
Posting Komentar (Atom)
0 komentar:
Posting Komentar