ЗАПИШИТЕ НА ЯЗЫКЕ ПАСКАЛЯ

ниже

Объяснение:

x=(12+a)/sqrt(sqr(a)+5)+1

x=(sqr(16+sqrt(sqr(a)-11))+3)/sqr(a)

x=2*(a+3)+sqr(3/(1-4*a))

x=sqr(a)*sin(1/sqr(a)+sqr(a))

чернила были красные и черные. весь текст писался чернилами черного цвета, а начало  каждого нового раздела, т.е. новой мысли выделяли красными чернилами, так появилось выражение "красная строка", которым мы и сейчас обозначаем новую строку в начале абзаца.

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.