<span>артефакт,инстинкт,антарцит,оригинал</span>
Var
a, b:real;
begin
readln(a, b);
writeln(a * b * 0.5);
end.
(0+1)*(1*0)=1*0=0 ответ 2
вообщем получиться такая фраза : жду тебя в семь
const
n=30;
var
a:array [1..n] of integer;
i,min:integer;
begin
for i:=1 to n do begin
readln (a[i]);
if a[i]>=20 then min:=a[i];
end;
for i:=2 to n do
if (a[i]>=20) and (a[i]<min) then min:=a[i];
writeln (min);
readln;
end.