Var a,b: longint;
begin
read (a);
readln (b);
if a>b then
writeln (a)
else writeln (b);
<span>end.</span>
124 25
X 100
(пропорция)
124x100=12400
12400/25 = 496
Ответ: 496
Program z2; Var v,s,a,v0:real;Begin Write('Vo ='); readln(v0); Write('a ='); readln(a); Write('S ='); readln(s); v:=sqrt(2*a*s+v0*v0); Write('V =',v);End.