program five;
var a,b,c:integer; s:real;
begin
writeln('Vvedite 4isla:');
readln(a,b,c);
if( (a <> 0) and (b <> 0) and (c <> 0)) then
begin
s:=(a+b+c)/3;
writeln('Srednee arimeti4eskoe: ',s:6:3);
end
else writeln('Odno iz 4isel ravno nulyu');
readln;
end.

program chetire;
var a:integer; b:real;
begin
writeln('Vvedite 4islo:');
readln(a);
if ((a mod 2)=0) then
begin
b:=a/2;
writeln('Rezultat: ', b:6:0);
end
else
writeln('chislo nechetnoe');
readln;
end.

program tri;
var a,i:integer; b:real;
begin
writeln('Vvedite 4islo:');
readln(a);
writeln('Chisla: ');
for i:=10 to 99 do
begin
if ((i mod a)=0) then
write(i, ', ');
end;
readln;
end.