===== PascalABC.NET =====
begin
var a := MatrRandom(6, 6, -20, 20);
a.Println(4);
a.ElementsByRow
.GroupBy(p -> p)
.Where(p -> p.Count > 1)
.MaxBy(p-> p.Key)
.Distinct
.Println
end.
Данное число может быть в системах счисления со следующими основаниями: 1, 2, 3 и 4.
Число букв
Число гласных
Число согласных
То же слово, но записанное в обратном порядке
Порядковый номер первой буквы в русском алфавите
Не понял с a2, если не квадрат, то позже исправлю
program func;
var
a, b: integer;
z: real;
begin
writeln('Введите a и b');
readln(a,b);
if a=0 then
writeln('Решения нет')
else if a<>0 then
begin
z:=((Sqr(a)-b)/(a-1));
writeln('z=',z);
end;
end.