1)переводчик лишнее
2)антивирусная программа лишнее
Начало
ввод х или дано х
а=х+4
b=a* 2
c=b+ 4
y= c / 5
вывод у
конец
Это линейный алгоритм
const N =7;var a, k, i:integer;begink:=0;for i:=1 to n do beginreadln(a);if a mod 10<>2 thenk:=k+a;end;writeln(k);end.
Program enot;
Var b,j,i: integer;
begin
read(b);
for j:=1 to 9 do
begin
b:=b+3;
writeln(b);
end;
<span>end.</span>