Program prog;
uses crt;
var a, b, x, y : real;
begin
clrscr;
write('A = ');
readln(a);
write('B = ');
readln(b);
x:=2*sqr(a);
y:=3*b;
writeln;
writeln ('X = ', x:0:3, ' Y = ', y:0:3);
if (x>y) then writeln('Min = ', y);
if (x<y) then writeln('Min = ', x);
if (x=y) then writeln('X = Y');
end.
1) арифметика
2) орфография
3) биология
4) география
5) история
6) физиология
7) микробиология
8) физика
9) морфология
10) химия
11) экономика
12) биология
13) география
14) биология
15) география политическая
16) физика
17) химия
18) география
19) геометрия
20) биология
21) история
22) морфология
23) география
<h2>Ошибка</h2>
Знак "больше или равно" пишется в том же порядке, что и читается
Сначала знак больше потом равно
" >= "
<h2>Исправление ошибки</h2>
Заменить 16 строку " if(D=>0) then "
На " if(D>=0) then "
Если с компа,то cntr+c или cntr+v