contoh coding program pascal 2

untuk meng input biodata
membuat deret angka
dan menghitungluas lingkaran

Codingan: program menu;
uses crt;
var
x,y,z,pil,jr,k : integer;
nm,kls,npm : string;
Luas : real;

begin
K:= 40;
clrscr;
writeln('Menu:');
writeln('1. Biodata');
writeln('2. Deret');
writeln('3. Luas lingkaran');
write('Masukan pilihan anda: ');readln(pil);
case pil of
1:begin
Write('masukan nama ');readln(nm);
write('masukan kelas ');readln(kls);
write('masukan NPM ');readln(npm);
writeln('nama Saya',nm);
writeln('kelas saya', kls);
writeln('Dengan NPM ', npm);
readln;
end;
2:begin
for x:= 1 to 5 Do
begin
for y:= 1 to x do
begin
write(y);
end;
writeln;
end;
z:= 5 -1;
for x:= z downto 1 do
begin
for y:= 1 to x do
begin
write(y);
end;
writeln;
end;
readln;
end;
3:begin
write('masukan jari-jari ');readln(jr);
Luas := (jr * jr)* 3.14;
writeln('Luas Lingkaran ',round(Luas));
readln;
end;
end;
end.