Question

Помогитееее
1.Составить блок-схему по
приведенной ниже программе:
var a, answer: integer;
begin
answer:=0;
readln(a);
while a<>0 do begin
if (a mod 4 = 0) and (a > 99) and
(a <1000) then
answer := answer + 1;
readln(a); end;
writeln(answer);
end
2. Чему будет равна
переменная К после
выполнения алгоритма
представленного следующей
блок-схемой, если ввести
n=1235? Составить таблицу