Я смог решить только 7
program nomer;
var a,n,x:integer;
begin
while n<=0 do
begin
writeln('Введите число');
readln(x);
if (x mod 2)=0 then a:=a+x;
writeln('хотите закончить ввод? да=1, нет=0');
readln(n);
end;
writeln(a);
end.
A+А/100*20=А+А*0,2-это с 20%
Следовательно итоговая формула если К>=50. тогда (К-50)*А*0,2+К*А
если К<=50, тогда К*А
Beginvar a:=Readinteger('Введите число');write(a mod 100*10+a div 100);end.
В десятичной это число: 1447.