Question

Пользователь вводит целое число, если оно больше 30, то выведите на
экран все числа от этого числа до 20, иначе сообщите об ошибке.
Pascal

Answer 1

Ответ:

program z;

var a,i:integer;

begin

read(a);

if a>30 then

for i:=a downto 20 do write(i,' ') else write('ошибка')

end.