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

VarR:real;BeginWriteLn('Введи число');ReadLn(R);If (R>=-20)and(R<=0) then Write(1)else if (R>=1)and(R<=real.PositiveInfinity) then Write(2)else Write('No')End.Над стрелками после условия знаки поставь: над правой плюс, над левой минус.

var  n:double;begin  Write('n='); Read(n);  if (n>=-20) and (n<=0) then Writeln('1')  else    if n>=1 then Writeln('2') else Writeln('No')end.Блок-схема во вложении, знаком & обозначена операция "логическое и"