Пользователь вводит два числа. если первое число меньше второго то вычислить их сумму, иначе - разность первого и второго.

Program z; var a,b,c: integer; begin readln(a,b); if a< b then c: =a+b           else c: =a-b; writeln(c) ; end.

Const n=10; var  a : array [1..10] of integer; i, mini,   maxi,   min,max, c,k: integer; begin for i : = 1 to n do begin a[i] : = random(10); write(' ',a[i]); end; maxi: =1; mini: =1; for i: =1 to n do   begin min: =a[1]; if a[i]> max then   begin max: =a[i]; maxi: =i; end; if a[i]< min  then   begin min: =a[i]; mini: =i; end; c: =a[maxi]; a[maxi]: =a[mini]; a[mini]: =c; end; writeln; for i: =1 to n do begin write(' ',a[i]); end; writeln; for i: =1 to n do begin if a[i]> 4 then begin a[i]: =4; inc(k); end; write(' ',a[i]); end; writeln; write('количество: ',k); end.

Program asd; var a: array[1..250] of integer; b: array[1..250] of real; i,n: integer; begin  write('введите n: ');   readln(n);   writeln('заполните массив: ');   for i: =1 to n do   begin    write('a[',i,']: '); readln(a[i]);     end;   writeln;   for i: =1 to n do   begin    if (a[i] mod 5=0)    then   b[i]: =a[i]*2    else      begin    b[i]: =a[i]*0.10;     end;     writeln('a[',i,'] = ',b[i]);       end; end.