var
a, b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a <> b then
if a > b then
b := a
else
a := b
else
begin
a := 0;
b := 0;
end;
writeln('a = ', a);
writeln('b = ', b);
readln;
end.
Налить первый раз в трехлитровый перелить в пяти, налить второй раз в трехлитровый, перелить в пятилитровый.
что останется, то и есть один литр :-) потому что 3+3-5=1
===== PascalABC.NET =====
begin
var F: real-> real := n -> Sqrt(n) + n;
F(ReadReal('n =')).Println
end.