Tugas pascal5

Praktikum 5
Program1

Uses wincrt;
Var
i:integer;

begin
writeln(‘progran perulangan 1-5’);
for i:=1 to 5 do
writeln(i);
end.

Program 2

Uses wincrt;
Var
i:integer;

begin
writeln(‘progran perulangan 5-1’);
for i:=5 downto 1 do
writeln(i);
end.

tugas anda
buatlah program perulangan
1. 1-4-9-16-25 dan 25-16-9-4-1
2. 2-4-6-8-10 dan 10-8-6-4-2
3. 10-14-18-22-24 dan 24-22-18-14-10
4. 3-6-11-18-27 dan 27-18-11-6-3