Протокол передачи данных, TCP/IP
Var x1,y1,x2,y2,d:real;
begin
Writeln('Координаты х и у первой точки: ');
readln(x1,y1);
Writeln('Координаты х и у второй точки: ');
readln(x2,y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln('Расстояние между ними: ',d);
<span>end.</span>
Var n:integer;
procedure delim(n:integer);
begin
if(n mod 5=0) then writeln('Делится')
else writeln('Не делится');
end;
begin
writeln('Введите число');
readln(n);
delim(n);
<span>end.</span>
98+9=107 97+9=106 96+9=105 95+9=104 94+9=103 93+9=102