Word и так имеет такой тип
Как бы не чего переделывать
Program HelloWorld;var x1,y1,x2,y2:double;begin readln(x1); readln(y1); readln(x2); readln(y2); x1:=sqrt(x1*x1+y1*y1); x2:=sqrt(x2*x2+y2*y2); if(x1>x2) then writeln(x2:0:2) else if(x2>x1) then writeln(x1:0:2) else writeln('Одинаково близко',x1:0:2);end.
Уму+ верный ответ только большими буквами УМУ+
1. 1024*8=8192 (мбайт) - новая флешка
Ответ: да, можно.
хе.. остальное не охота)