Компьютер нужен для хранения информации.
Var a,b,x,y,z:integer;
begin
readln(a,b,x,y,z);
if ((a>=x)and(b>=y))
or ((a>=y)and(b>=x))
or ((a>=x)and(b>=z))
or ((a>=z)and(b>=x))
or ((a>=y)and(b>=z))
or ((a>=z)and(b>=y))
<span>then write('Пройдёт')
</span><span>else write('Не пройдёт');</span>end.
Var m,n:integer;
begin
write('Введите два числа m и n: '); Readln(m,n);
if (m div n) mod 2 = 0 then m:=m*m
else n:=n*3;
Write('m=',m,', n=',n);
end.
В одном мегабайте содержится 2^23 бит, поэтому 16*2^23=134217728 бит
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var a := SeqWhile(1, i -> i + 1, i -> i < 20);
Println(a);
Println(a.Where(x -> x mod 3 = 0).Average);
Writeln();
for var i := ReadInteger('a =') to ReadInteger('b =') do
writeln(i, ' ', i * i, ' ', i * i * i);
end.