Prugram tugas;
Uses wincrt;
Var s,l,k:integer;
Function luas:integer;
Begin
Write(‘masukkan sisi:’);readln(s);
l:=s*s;
writeln(‘luas:’,l);
end;
Function keliling:integer;
Begin
Write(‘masukkan sisi:’);readln(s);
k:=s*4;
writeln(‘keliling:’’k);
end;
begin
luas;
keliling;
end.
Post a Comment