Var x:integer;y:real;beginwrite ('x= ');readln (x);y:=(2*x-4)/2;write('y= ', y:6:2);end.
Если не то, что нужно напиши мне!
var a,b,n,c:integer;
Begin
readln(n);
a:=0;
<span>for c:=1 to n do</span>
begin
readln(n);
If n<0 then
n:=1 else n:=0;
a:=a+n;
end;
writeln(a);
<span>end.</span>
3.) Путь ADEC самый короткий. Его длина равна 5.
4.) Путь Васильки - Антоновка - Ежевичная - Сельская - Дружба самый короткий. Его длина равна 6.
5.) 3