Основы программирования

program p1;

var a,b:integer;

begin

writeln ('Введите 2 числа');

readln (a,b);

if a=b then writeln ('Числа одинаковые')

else if a>b then

begin writeln ('Наибольшее число ',a);

writeln ('Наименьшее число ',b);

end

else begin writeln ('Наибольшее число ',b);

writeln ('Наиментшее число 10 ',a);

end;

end.

program p2;

var a,b,c,d:integer;

begin

writeln ('Введите 4 числа');

readln (a,b,c,d);

if a<b then a:=b;

if c<d then c:=d;

if a<c then a:=c;

writeln ('Наибольшее число ',a);

end.

Объяснение:

Объяснение:

«Фах» (англ. Profession) — науково-фантастична повість Айзека Азімова, вперше опублікована у липні 1957 року в журналі «Astounding Science Fiction». Увійшла до збірки «Дев'ять завтра» 1959. Автор описує суспільство на Землі у 66 столітті, де всі діти отримують знання через нейрокомп'ютерний інтерфейс. Земля постачає спеціалістів для Зовнішніх світів. Найголовнішими подіями у житті дитини є: День Читання — дата у вересні, коли діти 8-ми років отримують навички читання