На иконке ярлыка в нижнем левом углу стрелка
Куку, ахаза
первый ответ скорее всего правильный
1) program abc;
var x, y: integer;
begin
read(x);
y:=(x+5)/(x-3)
write(y);
<span>Задача №1 (( остальные по аналогии сделай ))
const n=3;var a:array[1..n,1..n] of integer; {Ввод массива N на N} i, j, sum: integer; {Ввод переменных}begin sum := 0; begin for i:= 1 to n do for j:= 1 to n do read(a[i,j]) end; for i:= 1 to n do begin for j:= 1 to n do if a[i,j] > 0 then sum:=sum + a[i,j] end; write('сумма = ', sum);end.</span>
81 клетка получится в оэтом кводрате