241 = F1
242 = F2
243 = F3
250 = FA
251 = FB
Var x,n,i,t,k:integer;
begin
read(x,n);
t:=0;
k:=1;
while t<n do
begin
k:=k*x;
inc(t); //t:=t+1
end;
end.
Вроде так.
Program asd;
Var a1,a2,a3:integer;
sr:real;
BEGIN
Write('Введите А1: ');
Readln(a1);
Write('Введите A2: ');
Readln(a2);
Write('Введите А3: ');
Readln(a3);
If (a1>=5) and (a1<=10) then Writeln('Есть. ',a1)
else
If (a2>=5) and (a2<=10) then Writeln('Есть. ',a2)
else
If (a3>=5) and (a3<=10) then Writeln('Есть. ',a3)
else
Writeln('Нету.')
<span>END.</span>