Написать на паскале программу .определить что меньше а или б.

Program 123; uses crt; var a,b: integer; begin clrscr; writeln(' enter a,b'); readln(a,b); if (a< =b) then min: =a if (b< =a) then min: =b writeln('min=',a,'min=',b); readln; end.

Var a, b: real; begin       readln(a, b);       if (a > b) then writeln(a, ' > ', b);       if (a = b) then writeln(a, ' = ', b);       if (a < b) then writeln(a, ' < ', b); end.так =)

Var a,b,i,nod: integer begin a: =-1; b: =-1; //ввод первого числа writeln('введите первое число'); while a< 0 do begin readln(a); if a< 0 then writeln('ввод , повторите ввод первого числа'); end; //ввод второго числа writeln('введите второе число'); while b< 0 do begin readln(b); if b< 0 then writeln('ввод , повторите ввод второго числа'); end; //определение минимального числа if a> b then i: =b else i: =a; //перебор чисел от минимального до 0 (т.к. нод не может быть больше минимального числа) while nod=0 do begin i: =i-1; if (a mod i = 0) and (b mod i = 0) then nod: =i; end; //вывод нод writeln('нод ', a,' и ', b, ' = ', nod); end.

#include < iostream> using namespace std; int main() {     int m;     cout < < "m = ", cin > > m, cout < < "\n";     int b[m];     srand(time(null));     cout< < "array: \n";     for (int i=0; i< m; i++)     {       b[i]=rand() % 50;       cout< < b[i]< < " ";     }     cout < < "\n";     for (int i=0; i< m; i++)       if ((i+1)%2==0) b[i] *= 2;       else b[i]=0;     for (int i=0; i< m; i++) cout < < b[i] < < " ";     cout < < "\n";     return 0; } пример: m = 10array: 47 3 29 46 36 31 2 2 20 200 6 0 92 0 62 0 4 0 40