var a,b,c,d:integer;
begin
writeln('Вступительный балл');
readln(a);
writeln('1 экзамен ');
readln(b);
writeln('2 экзамен ');
readln(c);
writeln('3 экзамен ');
readln(d);
if a<(b+c+d) then
writeln('Ученик принят');
else
writeln('Ученик не принят');
end.
a = input()
print(a)
##########################
С помощью кодировки ( 8 битной, 16 битной...)
Тело цикла выполнится три раза.
a=2 p=2
a=4 p=8
a=8 p=64