как ограничить количество вводимых чисел пользователем?

[Kati]

Написать программу, позволяющую вводить целые числа. Если число положительное, то на экране отображается куб числа. Если число отрицательное, то на экране отображается квадрат числа. Количество введенных чисел ограничивается пользователем (по нажатию определенной клавиши прекращается ввод чисел), либо если число введенных чисел достигло 10.

[ROMA2PVT]

Например так:

var
i:integer;
a:integer;
begin
for i:=1 to 10 do
begin
readln(a);
if a>0 then
writeln('÷èñëî ',a,' â êóáå:=',exp(3*ln(a)))
else if a<0 then
writeln('×èñëî ',a,' â êâàäðàòå:=',sqr(a));
end;
end.

[Niro]

Вариант для Паскаля

repeat
 k:=k+1;
 readln(chislo);
 if chislo>0 then writeln('kyb',chislo*chislo) else writeln('kvadrat',chislo*chislo*chislo);
until (k=10) or (readkey=#13)

код не проверял

[Sparkman]

Сообщение от Kati

Написать программу, позволяющую вводить целые числа. Если число положительное, то на экране отображается куб числа. Если число отрицательное, то на экране отображается квадрат числа. Количество введенных чисел ограничивается пользователем (по нажатию определенной клавиши прекращается ввод чисел), либо если число введенных чисел достигло 10.

uses crt;
var c:char;
    counter,code,number:integer;
    s:string;
begin
     clrscr;
     writeln('Enter number (esc to end):');
     repeat
           c:=readkey;
           val(c,number,code);
           if (code=0) then
           begin
                s:=s+c;
                write(c);
                inc(counter);
           end else
           if (c='-')and(Length(s)=0) then
           begin
                s:=c;
                write(c);
           end;
     until (c=#27)or(counter>=10);
     writeln;
     val(s,number,code);
     if code=0 then
     begin
          write('Result: ');
          if number>0 then writeln(number*number*number)
          else writeln(sqr(number));
     end;
     WriteLn('Press enter to exit...');
     readln;
end.

UPD:
Ёлки-палки ваша задачка настолько проста, что я не понял её сразу

var counter,number:integer;
begin
     repeat
           writeln;
           write('enter number: ');
           readln(number);
           write('result: ');
           if number>0 then writeln(number*sqr(number))
           else writeln(sqr(number));
           inc(counter);
     until (number=0)or(counter=10);
     writeln('Press enter to exit...');
     readln;
end.

Выход из процесса ввода происходит при вводе нуля.

[Kati]

Большое спасибо!