Var
<span> d1, v1: integer; </span>
<span> d2, p2, v2, w: integer; </span>
t1, t2: real;
<span>begin </span>
<span> readln(d1,v1); </span>
<span> readln(d2,p2,v2,w); </span>
<span> t1:= d1 / v1; </span>
t2:= (d2 - p2) / v2 + (p2 / w);
<span> if (t1 < t2) then </span>
<span> write('1') </span>
<span> else if (t2 < t1) then </span>
<span> write('2') </span>
<span> else </span>
write('0');
<span>end.</span>
от всех учасников отнимем тех кто знает бейсик, останутся те кто знает только паскаль
35 - 22 = 13
program p
var
a,b,c,d : integer;
begin
readln(a),
readln(b),
readln(c),
readln(d),.
if (a<0) and (b/c=2) then witeln ((a+b+c+d)/4);
if (a*b*c*d>a+b+c+d) then begin witeln (a+b+c+d);witeln (a*b*c*d);end;
if (a*b*c*d>a+b+c+d)and((a<0) and (b/c=2)) then begin end else
begin
writeln(2*a) ;
writeln(2*b) ;
writeln(2*c) ;
writeln(2*d) ;
end;
end.