Const
n = 10;
m = 10;
var i, j, column, row, sum_column, sum_row: integer;
arr: array [1..n,1..m] of integer;
begin
for i :=1 to n do
begin
for j:=1 to m do
begin
arr[i,j]:= random()*10;
end;
end;
readln(row);
readln(column);
sum_column:= 0;
sum_row := 0;
for i:=1 to n do
begin
sum_row := sum_row + arr[i,row];
end;
for j:=1 to m do
begin
sum_column := sum_column + arr[column, j];
end;
writeln(sum_column);
writeln(sum_row);
end.
Не проверено. Написал сходу в окне.
var c: real;
begin
readln(c);
writeln(c * 0.5 * c / 2);
end.
<h3>// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadInteger('Введите x:').IsOdd then Print('Это нечетное число')
else Print('Это четное число')
end.
Я думаю что:сночало 1,потом 4, затем3, ну и наконец2