Var x1a,y1a,x2a,y2a,L1,L2,x1b,y1b,x2b,y2b,:real;
begin;
readln(x1a);
readln(y1a);
readln(x2a);
readln(y2a);
readln(x1b);
readln(y1b);
readln(x2b);
readln(y2b);
l1:=sqrt(sqr(x2a-x1a)+sqr(y2a-y1a));
l2:=sqrt(sqr(x2b-x1b)+sqr(y2b-y1b));
if I1>l2 then writeln('Первый');
if l1<l2 then writeln('Второй');
if l1=l2 then writeln('Равны');
end.
Диапазон Z100:AB109
Z - AA - AB
100
101
102
103
104
105
106
107
108
109
3*10=30
<span>Ответ 30</span>
предлагаю решение на Паскале
var n: integer;
begin
read (n);
if (n mod 5)=0 then n:=n*4
else
n:=n-25;
writeln ('n=',n);
end.
Его используют для связи слов
По Русски переводится И
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var (a,b):=ReadReal2;
if a>b then write('>') else if a<b then write('<') else write('=');
end.