Помогите пожалуйста с информатикой.
дам 25 баллов

Ответ:

1.

var a:Integer;

begin

Write('Введите целое положительное число ');

ReadLn(a);

if a mod 2 = 0 then Write(a/2) else

Write(a-3)

end.

2.

var i,s:Integer;

begin

for i:=10 to 99 do

if i mod 4 = 0 then s:=s+i;

Write(s)

end.