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

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.


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.