<h3>// PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var a:=MatrRandom(5,5,-99,99);
a.Println(4);
(4*a.ColCount*'-').Println;
$'Сумма чисел в пятом столбце: {a.Col(4).Sum}'.Println
end.
var
x, y, z, max: integer;
begin
readln(x, y, z);
if x > y
then max := x
else max := y;
if z > max
then max := z;
writeln(max * max)
end.
var
n:integer;
begin
write('n = '); readln(n);
if (n div 100) = (n mod 10) then
writeln('Перевертыш')
else
writeln('Нет');
readln;
end.
Var s:string;
begin
s:='тестирование';
s:=s[8]+s[9]+s[1]+s[9];
writeln(s);
<span>end.</span>
<span>Правильный ответ: инфракрасных</span>