CONTOH prulangan pascal while do

A. PERULANGAN DENGAN WHILE DO

program while_do;
uses wincrt;
label back;
var
 k,awal,akhir:integer;
 rata,jum:real;
begin
back:
clrscr;
write('Nilai Awal =');readln(awal);
write('Nilai Akhir =');readln(akhir);
if awal<=akhir then
begin
while awal<=akhir do
begin
jum:=jum+awal;
awal:=awal+2;
k:=k+1;
end;
end
else goto back;
rata:=jum/k;
writeln('rata-rata = ',rata:2:2);     write('================================================================================');
     writeln('                      ==*RICKYSEPRIYANTO_13010241*==');
     writeln('                      ==================================');
end.


B.PROGRAM WHILE DO 1

Program whiledo1;
Uses wincrt;
Var i:byte;
Begin
     Writeln('Kelipatan 7 sampai 70:');
     i:=1;
     While i<=70 Do
     Begin
          If i mod 7 = 0 then
          Writeln(i);
          i:=i+1;
          end;
end.

C. PROGRAM WHILE DO 2

Program whiledo0;
Uses wincrt;
Var i:byte;                              
Begin
     Writeln('Bilangan cacah ganjil sampai 20:');
     i:=0;
     While i<=20 Do
     Begin
          If i mod 2 = 1 then

          Writeln(i);
          i:=i+1;
          end;
end.