Цикл з параметром

program p40; 

uses crt; 
Var i,s,c1,c2:integer; 
BEGIN 
For i:=30 to 100 do 
if i mod 3=0 
then writeln('i ,'); 
if (i mod 10 =2) and (i mod 10 =4 ) and 
(i mod 10 = 8 ) then writeln (',i'); 
writeln(i,''); 
END.


program p41; 

uses crt; 
Var i,s,c1,c2,k:integer;sa:real; 
BEGIN 
s:=0;k:=0;sa:=0; 
for i:=10 to 99 do 
begin 
c1:=i div 10;//persha dia 
c2:=i mod 10;//ostanna chifra 
if c1 < c2 then// ce umova 
begin 
s:=s+i;//suma 
k:=k+1;//kilkist 
end; 
end; 
if k<>0 then sa:=s/k; 
writeln(s,' ',k,' ',sa:1:2); 
END.


program p42; 
var i,s,c1,c2:integer; 
begin 
for i:=10 to 99 do 
begin 
c1:=i div 10; c2:=i mod 10; 
s:=sqr(c1)+sqr(c2); 
if s mod 13=0 then write (i,' '); 
end; 
end.