1.Числовая
2.Видеоинформация
3.Органы чувств
4.Данные
5.Графическая
6.Компьютер
7.Информация
8.Слуховая
9.Информатика
10.Текстовая
Var x1, x2, y1, y2, s: real;
begin
read(x1, y1, x2, y2);
s:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
write(s:0:3);
end.
Var
a: integer;
begin
readln(a);
if (a mod 3 = 0) or (a mod 10 = 4) then
writeln('Да')
else
writeln('Нет')
<span>end.</span>