Var a, b, c:integer;
function sravnenie(a, b, c:integer):boolean;
begin
sravnenie:=false;
if a<b then
begin
if b<c then sravnenie:=true;
end;
end;
begin
writeln('Введи 3 числа');
readln(a, b, c);
if sravnenie(a, b, c) then writeln('Да') else writeln('Нет');
end.
Var
i, g: integer;
begin
for i := 50 downto 2 do
if i mod 2 = 0 then g := g + i;
writeln(g);
end.