Як познячається логічна операція “більше” в мові програмування Free Pascal?

Більше або рівне (?) >= x*x>=0

Объяснение:

Я на твоє відповіла ,ти обіцяв до 10 відповісти на моє

ось воно

через точку S проведено дотичні AB і CD до кіл із центрами в точці O1 і O доведіть що BC=AD

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.

то что подчеркнуто на минимальный возвраст группы заменить.

? "введите возвраст человека"

input a

if a> пенсионер then 1 else 2

1 ? "группа пенсионеров" : goto 10

2 if a> работник then 3 else 4

3 ? "группа работников" : goto 10

4 if a> ученик then 5 else 6

5 ? "группа учеников" : goto 10

6 ? "группа дошкольников"

10 end