Запишите условия на языке Паскаль.
1) Величина Х – положительна
2) Число Y - неотрицательно
3) 0 < X < 5
4) X равно 10
5) Числа X и Y – отрицательные
6) X (- 5; 5 ]
7) X > 0 , Y < 4
8) X кратно 3
9) X не делится на

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

вместо х ставишь 2,значит у=2-1,у=1,х=у-2,2=4-2,у=х-у,у=2-у,тут у-любое,кроме 2 и более

program p_1; var i, n : integer; s : real; b : array [1..1000] of real; begin writeln('введите количество значений массива n'); readln(n); write('введите элементы массива а: '); for i: =1 to n do readln(a[i]);   writeln('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if a[i] mod 2 = 0 then s: =s+b[i]; writeln('сумма четных значений =', s); end.

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.