var a,sum,i:integer;
begin
for i:=1 to 5 do
begin
readln (a);
if (a mod 4=0) and (a mod 10=6) then sum:=sum+a;
end;
writeln (sum);
readln;
end.
Var
x, sum: integer;
begin
read(x);
while(x gt; 0) do
begin
if(x mod 10 lt;= 5) then sum := sum + x mod 10;
x := x div 10;
end;
write(sum);
end.
128Кбайт= 128*1024*8=1048576 бит
1048576/16=65536
x=65536
звездачка заменяе любое количество символов. Так что просто начало и расширение по краям
t*.exe