Решить в паскале. даны координаты противоположных вершин а и с квадрата abcd. найти координаты вершин b и d. данные для ввода: а(1, 1), с(3, 3)

===============ответ================

Var   a, n, sum1, sum2, k: longint; begin   a : = 100000;   while a < > 999999 do   begin     sum1 : = 0; sum2 : = 0;     n : = a div 1000;     sum1 : =  n div 100 + (n div 10) mod 10 + n mod 10;     n : = a mod 1000;     sum2 : = n div 10 + (n div 100) mod 10 + n mod 10;     if sum1 = sum2 then     begin       writeln(a, ' - "счастливый" билет');       k : = k + 1;     end;     a : = a + 1;   end;   writeln('всего ', k, ' таких билетов');   readln end.

Это про зайца var r,d,s,m,a: real; begin; write('введите скорость зайца '); readln(r); write('введите скорость собаки '); readln(d); write('введите расстояние до леса '); readln(s); write('введите расстояние между ними '); readln(m); a: =s/r; if (d*a)> =(m+s)  then writeln('собака догонит зайца') else writeln('собака не догонит зайца'); end.про кругvar p,d,l: real; begin; write('введите периметр квадрата '); readln(p); p: =p/4; write('введите лину окружности '); readln(l); d: =(l/pi); if r< =pthen writeln('круг войдёт в квадрат')else writeln('круг не войдёт в квадрат'); end.