Написать программу для этого алгоритма. 70 .

var a, b, x: real;

begin

    writeln('ax + b = 0');

    write('введите a: ');

    readln(a);

    write('введите b: ');

    readln(b);

    if a < > 0 then

        x: =-b / a

    else

        if b < > 0 then

            writeln('корней нет')

        else

            writeln('любое число');

    writeln('x = ', x);

end.

я так понимаю надо написать паскале

1uses crt;

2var a,b,c: real;

3             i: byte;

4 begin

5clrscr;

6writeln('введите 3 действительных числа: ');

7readln(a);

8if a> =0 then a: =a*a else a: =sqr(sqr(a));

9 readln(b);

10if b> =0 then b: =b*b else b: =sqr(sqr(b));

11readln(c);

12if c> =0 then c: =c*c else c: =sqr(sqr(c));

13write('a=',a: 0: 2,' b=',b: 0: 2,' c=',c: 0: 2);

14readln

15end.

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.