Sos sos sos!

1)

var

x,y,s: real;

begin

readln(x,y);

s: =abs(x*y);

writeln(s: 8: 2);

end.

2)

var

a: integer;

begin

readln(a);

if a mod 2=0 then writeln("четное число")

else  writeln("нечетное число")ж

end.

  вал. панамка

рыба с буквой - рыбак

добавить ввод номера столбца.

строку if (j = 2) and (a[i, j] > 10) then заменить

на if (j = m) and (a[i, j] > 10) then  где m- введенный номер столбца.

человек: воспринимать,  бежать,  ,  понять, обучить.

компьютер: вычислять,  закодировать, напечатать,  декодировать,  обработать,  передать, сохранить. 

хм передать можно и к человеку вставить.