Cоставить программу, получающую при вводе действительное число и выводящую цифру 1, если это число падает [-20;0], и цифру 2, если это число попадает в промежуток [1;+∞]. В остальных случаях программа выводит слово No. Программу следует составить в Pascal.