Uses crt;
var x1,y1,x2,y2:integer;
dlina:real;
begin
read(x1,y1);
read(x2,y2);
dlina:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(dlina);
end.
Открой рисунок,там где отмечено красным,должны быть зайцы
синий Renault, Глеб правильно назвал марку, Вадим правильно назвал цвет, Артём правильно утвердил, что не чёрная, наверное так
Sub Z()
Dim a As Integer
a = InputBox("1")
Dim b As Integer
b = InputBox("2")
If Math.Abs(a) > Math.Abs(b) Then a = a / 5
End Sub<span>
</span>
Решение находиться во вложении