Const
n = 4;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
begin
for i := 1 to n * n do
a[i mod n + 1, (i-1) div n + 1] := random(10);
for i := 1 to n do
begin
writeln();
for j := 1 to n do
begin
if i = j then a[i, j] := 0;
write(a[i, j]:3);
end;
end;
end.
от всех учасников отнимем тех кто знает бейсик, останутся те кто знает только паскаль
35 - 22 = 13
Var a,b,h:integer;
begin
read(a;h);
write(a^a+2*a*sqrt(a^a/4+h*h));
wrteln((h*a*a)/3);
end.
Var a, b: Real;
begin
write('Введите число а: ');
readln(a);
write('Введите число b: ');
readln(b); if a > b then
begin
a := a * a;
b := b * b * b;
end
else
begin
a := a * a * a;
b := b * b;
end;
writeln('a = ' + a);
writeln('b = ' + b);
<span>end.</span>
В чем вопрос я понять не могу???