Program z1;
var
a,b,c,d:integer;
begin
writeln('Введите число a и число b');
readln(a,b);
c:=sqr(max(a,b));
d:=min(a,b)+1;
writeln('Первое число ',c,', второе число ',d);
<span>end.
Исправил</span>
===== PascalABC.NET =====
begin
var a := ArrRandom(30, 2, 5);
a.Println.Count(p -> p > 3).Println
end.
Вычислите сумму чисел x и y+при x = 0167+ y = 0//0/0001-Результат
представьте в десятичной системе счисления-
<span>D) в документ можно добавить сколько угодно декоративных текстов.
</span>