Сразу даю звезду, лайк и Решите правильно эт очень важно )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 uses crt; var i,xa,ya,xb,yb,xc,yc: integer;   function Dlina(x1,y1,x2,y2: integer):real; var d: real; begin d:= sqrt(sqr(y1-y2)+sqr(x1-x2)); Dlina:=d; end;   function Perimetr(a,b,c: real): real; begin Perimetr:=a+b+c; end;   procedure Vvod (nt: byte; var ax,ay,bx,by,cx,cy: integer); begin writeln ('Координаты вершины A ',nt,' треугольника'); readln (ax,ay); writeln ('Координаты вершины B ',nt,' треугольника'); readln (bx,by); writeln ('Координаты вершины C ',nt,' треугольника'); readln (cx,cy); end;   begin for i:=1 to 3 do     begin     Vvod (i,xa,ya,xb,yb,xc,yc);     writeln ('Периметр ',i,' треугольника = ',Perimetr(Dlina(xa,ya,xb,yb),Dlina(xb,yb,xc,yc),Dlina(xc,yc,xa,ya)):0:2);     writeln;     end; readkey end.

1. Допустим,что учитель сказал правду Савелию, тогда у Савелия оценка 4 или 3. У Виталия тогда оценка 3, так как учитель ошибся, а у Аркадия или 5 или 4.
Савелий-4
Виталий-3
Аркадий-5.
ЭТО ВОЗМОЖНО!

2. Допустим, что учитель сказал правду Виталию, тогда у него оценка 4 или 5, тогда у Савелия 5, а у Аркадия 4 или 5, так как учитель ошибся.
Савелий-5
Виталий-4 или 5
Аркадий-4 или 5
НЕ У КОГО НЕТ ОЦЕНКИ 3, А ЭТОГО БЫТЬ НЕ МОЖЕТ

3.Допустим, что учитель сказал правду Аркадию, тогда у него оценка 3, тогда у Савелия 3 или 4, так как учитель ошибся, а у Виталия оценка 3, так как учитель ошибся.
Савелий-3 или 4
Виталий-3
Аркадий-3
НЕ У КОГО НЕТ ОЦЕНКИ 5,А ЭТОГО БЫТЬ НЕ МОЖЕТ.
ответ:
Савелий-4
Виталий-3
Аркадий-5