1)ctrl+alt+delete-параметры безопасности (диспетчер задач).
2)win + = - экраная лупа ( для увеличения)
3)alt+F4 закрыть все окна
4)alt-tab переключится между окнами
Var n,i:Integer;
begin
i:=0;
repeat
Readln(n);
if (n mod 2=0) and (n<>0) then
Inc(i);
until n=0;
Writeln;
Writeln(i);
readln;
<span>end.</span>
===== PascalABC.NET =====
begin
var n := ReadInteger;
var L := ReadSeqInteger(n).Distinct.ToList;
L.AsEnumerable.Reverse.Print
end.
Function F(n: integer): integer;
begin
Writeln('Вход с n=',n);
if n < 5 then
Result := F(n + 3) + F(2 * n) + F(3 * n div 2)
else
Result := n + 2;
Writeln('Выход для n=',n,', F=',Result)
end;
begin
Writeln(F(3))
end.
Результат
Вход с n=3
Вход с n=6
Выход для n=6, F=8
Вход с n=6
Выход для n=6, F=8
Вход с n=4
Вход с n=7
Выход для n=7, F=9
Вход с n=8
Выход для n=8, F=10
Вход с n=6
Выход для n=6, F=8
Выход для n=4, F=27
Выход для n=3, F=43
43
Острое зрение.!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!