Найти сумму корней квадратных из трёхзначных натуральных чисел. создайте прогу которая просчитывала это на abcpascal

Var  a,b,c : integer;   d,x1,x2,s : real;     begin   writeln ('ax^2+bx+c=0');     write ('a=');   readln (a);   write ('b=');     readln (b);     write ('c=');   readln (c);       d : = sqr (b) - 4 * a * c;     if d < 0 then     writeln ('корней нет')      else        begin          x1 : = (-b + sqrt (d))/(2*a);           x2 : = (-b - sqrt (d))/(2*a);           if x1 < > x2 then          begin            writeln ('x1=',x1);             writeln ('x2=',x2);             s : = x1+x2;             writeln ('s=',s);             end            else            writeln ('x=s=',x1);           end;                     end.

Uses graph, crt;     var             d,r,r1,r2,rr,k,             x1,y1,x2,y2,x01,y01: integer;             xasp,yasp : word; begin   {инициируем графику}         d : = detect;         initgraph(d, r, ' ') ;         k: = graphresult;         if k < > grok then  writeln(grapherrormsg(k))   else begin {определяем отношение сторон и размеры экрана} x1 : = getmaxx div 2; y1 : = getmaxy div 2; getaspectratio(xasp, yasp); {вычисляем радиусы: }   r: = round(3*getmaxy*yasp/8/xasp);   r1 : = round(0.9*r); {часовые деления}   r2 : = round(0.95*r); {минутные деления} {изображаем циферблат}   circle(x1,y1,r); {первая внешняя окружность}   circle(x1,y1,round(1.02*r)); {вторая окружность}       for k : = 0 to 59 do {деления циферблата}       begin             if k mod 5=0 then                     rr : = r1 {часовые деления}           else                     rr: = r2 ; {минутные деления} {определяем координаты концов делений}   x01 : = x1+round(rr*sin(2*pi*k/60));   y01 : = y1-round(rr*xasp*cos(2*pi*k/60)/yasp);   x2 : = x1+round(r*sin(2*pi*k/60));   y2 : = y1-round(r*xasp*cos(2*pi*k/60)/yasp);   line(x01,y01,x2,y2) {выводим деление} end; {готовим вывод стрелок}   setwritemode(xorput);   setlinestyle(solidln,0,thickwidth);   r : = 0; {счетчик минут в одном часе} {цикл вывода стрелок}   repeat     for k : = 0 to 59 do {k = минуты}           if not keypressed then                 begin                               {координаты часовой стрелки}                               x2 : = x1+round(0.85*r1*sin(2*pi*r/60/12));                               y2 : = y1-round(0.85*r1*xasp*cos(2*pi*r/60/12)/yasp);                               {координаты минутной стрелки}                               x01: = x1+round(r2*sin(2*pi*k/60));                               y01: = y1-round(r2*xasp*cos(2*pi*k/60)/yasp);                               {изображаем стрелки}                                 line(x1,y1,x2,y2);                                 line(x1,y1,x01,y01);                                 delay(100); {для имитации реального темпа                                                                           нужно установить задержку 60000}                                                                         {для удаления стрелок выводим их еще раз! }                                 line(x1,y1,x01,y01);                                 line (x1,y1,x01,y01 ) ; {наращиваем и корректируем счетчик минут в часе} inc(r); if r=12*60  then   r : = 0 end until keypressed; if readkey=#0 then k: =ord(readkey); closegraph; end end.

1фото в порядке убывания 2 в порядке возрастания тебе надо 2: program rick_and_morty; var x,y,z: integer; begin write('введите 1 число: '); readln (x); write('введите 2 число: '); readln (y); write('введите 3 число: '); readln (z); if ((x< =y) and (x< =z))then   begin      if (y< =z) then   writeln(x,',',y,',',z)      else   writeln(x,',',z,',',y);       end else if ((y< =x) and (y< =z))then   begin   if (x< =z) then   writeln(y,',',x,',',z)   else   writeln(y,',',z,',',x)   end else if ((x< =y)) then   writeln(z,',',x,',',y)   else   writeln(z,',',y,',',x); writeln('конец'); end.