Написать программу, которая для целых чисел из диапазона [30; 10] выводит на экран удвоенные значения этих чисел.

CLS

a:

INPUT n

IF n<1 OR INT(n)<>n THEN GOTO a

DIM a(n)

FOR i=1 TO n

b:

INPUT a(n)

IF INT(a(n))<>a(n) OR a(n)<10 OR a(n)>30 THEN GOTO b

NEXT i

FOR i=1 TO n

PRINT 2*a(n)

NEXT i

Program Shunn;
uses crt;
const m=30;
const n=10;
var
  i: integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  for i:=m downto n do
    writeln('Число: ',i,'  Удвоение: ',2*i);
end.