Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>
//На VS 2010 решается так, в других средах разработки может нужно к заголовкам добавить .h или убрать подключение пространства имен STD :(Console application)
Var
a,b,c:integer;
begin
a:=26;
b:=6;
b:=a mod b+4;
c:=a mod b+1;
writeln('a=',a,' b=', b,' c=',c)
end.
Тестовое решение:
a=26 b=6 c=3