<span>program zadacha;
var
a, b, c, s: real;
begin
writeln('Введите три числа: ');
readln(a, b, c);
if a < b then
if b < c then s := b
else
if a < c then s := c
else s := a
else
if b > c then s := b
else
if a > c then s := c
else s := a;
writeln('Среднее по значению: ', s);
end.</span>
Вал, лофа, фол, вода жало а больше не знаю
Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.