var a,b:integer;
begin
writeln('Vvedite a,b?');
readln(a,b);
if a>b then writeln((a+b)*(a+b)) else writeln((a-b)*(a-b));
end.
1) D
2)
<span>полная форма if (условие) then ...else ...;
</span><span>краткая форма if (условие) then ...;
</span><span>3)
a) </span><span>if x>=y then
begin
x:=0;
y:=0;
end;
else
write(z);
b)
1.5
</span>
1) 70
2) 427
3)50
4) нет вопроса
5) 3400
6) 2200
7)277
8) 250
9) 533
10) 140
===== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Введите m и n:');
var a := MatrRandom(m, n, -99, 99);
a.Println;
Writeln;
foreach var j in Range(1, n - 1, 2) do
a.Col(j).Println
end.