Заранее Написать программу для решения задач на Pascal ABC:

Даны три различных целых числа. Найти среднее из них. (Средним называется число, которое больше наименьшего и меньше наибольшего из данных чисел)
Найти наибольшее из трех заданных чисел.

Первый вариант:

program N60286025;

var a,b,c,m:integer;

begin

write('Введите 1-е число: ');

readln(a);

write('Введите 2-е число: ');

readln(b);

write('Введите 3-е число: ');

readln(c);

if (a <= b) and (b <= c) or (a >= b) and (b >= c) then m := b;

if (b <= a) and (a <= c) or (b >= a) and (a >= c) then m := a;

if (c <= b) and (a <= c) or (c >= b) and (a >= c) then m := c;

writeln('Среднее число ',m);

readln

end.

Второй вариант:

program N60286025;

var a,b,c,m:integer;

begin

write('Введите 1-е число: ');

readln(a);

write('Введите 2-е число: ');

readln(b);

write('Введите 3-е число: ');

readln(c);

if a <= b then

if a <= c then

if b <= c then

m := b

else

m := c

else

m := a

else

if a <= c then

m := a

else

if b <= c then

m := c

else m := b;

writeln('Среднее число ',m);

readln

end.

// pascalabc.net 3.2, сборка 1344 от 22.11.2016 // внимание! в других версиях работа не гарантируется! begin   for var a: =1 to 300 do       for var b: =1 to 300 do           for var c: =1 to 300 do               if a*a+b*b=c*c then write(a,',',b,',',c,' '); end.