Var a,b,c,m: integer;
begin
readln (a,b,c);
m:=a;
if b<m then m:=b;
if c<m then m:=c;
if m mod 2 = 0 then write('чётное, ') else write('нечётное, ');
if m = 0 then write('ноль') else
if m > 0 then write('положительное') else write('отрицательное')
end.
20+10 = 30
сам сдаю информатику скоро
если ты тоже сдаешь и не знаешь как это решается, то посмотри на ютубчике решение огэ
Зрительная память - чтение, просмотр изображений
слуховая память - прослушивание аудио, услышанная фраза
и так далее
Var
a, b, h : integer;
Begin
readln(a, b, h);
Writeln('V = ', a * b * h);
Writeln('S = ', (a * b + a * h + b * h) * 2);
End.