Ойлануға берілген сұрақтар 1. Қалай ойлайсың, программалауды үйрену не үшін қажет?
2. Программа құрудың интеграцияланған ортасы (IDE) бойынша
түсінігіңді сыныптастарыңа қысқаша қалай жеткізер едің?
3. Программа құрудың интеграцияланған ортасы қандай бөліктер-
ден тұрады?
4. Программалау тілдерінің арасынан не себепті Python-ды таңдадың?​

Var
 A:array[1..4] of integer;
 i,j,R,P:integer;
function HOD(c,b:integer):integer;
 begin
  while c<>b do
   if c>b
     then
      c:=c-b
    else
     b:=b-c;
  HOD:=c;
 end;
function HOK(c,b, RR:integer):integer;
 begin
  if ((c mod b=0) or (b mod c=0)) and ((c div b > 1) or (b div c > 1))
   then
     begin
       if c>b
          then
           HoK:=c
         else
          HOK:=b;
     end
    else
     HOK:=(c*b) div RR;
 end;
begin
 A[1]:=36;
 A[2]:=54;
 A[3]:=18;
 A[4]:=15;
 P:=1;
 R:=HOD(A[1],A[2]);
 P:=HOK(A[1], A[2], R);
 for i:=3 to 4 do
  begin
   R:=HOD(R, A[i]);
   P:=HOK(P, A[i],R);
  end; writeln('HOK = ',P);
end.

program sravnenie;

var a,b:integer;

begin

 write('Введите первое число для сравнения: ');

 readln(a);

 write('Введите второе число для сравнения: ');

 readln(b);

 if(a>b) then writeln('Первое число ',a, ' больше второго числа ',b)

 else if(a=b) then writeln('Первое число ',a, ' равно второму числу ',b)

 else writeln('Первое число ',a, ' меньше второго числа ',b);

end.

Объяснение:

Выше программа на языке программирования Pascal

Если будет нужно на Python/C++, напишешь в комментарии, добавлю

Надеюсь , удачи.

К ответу прикрепляю скриншот, что всё работает