Ответ:
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.
только такие значения как true или false могут принимать такие переменные.
Ты не знаешь информатику-ты получил плохую оценку! Причина и следствие... или я не прав?!))))