program raf105;
var a,i:integer;
begin
for i:=50 to 70 do
if ((i mod 2)=0) and ((i mod 4)<>0)
then a:= a+1;
end;
writeln('Вывод: ',a);
end.
<em>Язык программирования PascalABC</em>
Текстовый файл, ну то есть содержит текстовую информацию.