320*2000= 640000 символов
1 символ=1 байт
Var x, y: real;
begin
readln(x, y);
if ((x > 0) and (y > 0)) then writeln('true') else writeln('false');
<span>end.
В первой четверти X и </span><span>Y положительны)</span>
1) x=x+x и так 2 раза => x= 2*(5+5)=10*2=20
2)y=y*4 => y=5*4=20
2) Команда( B:= 3) Значение переменной 3
3)Имя переменной С ,Значение переменной 2+3