Напишите программу, которая получает с клавиатуры целое число и записывает в логическую переменную значение «да» (True), если это число трёхзначное. После этого на экран выводится ответ на вопрос: «Верно ли, что было получено трёхзначное число?»

Program Primer;var i: Integer; b:Boolean;beginWrite('Введите число: ');ReadLn(i);if ((i<-99) and (i>-1000)) or ((i>99) and (i<1000))then b:=true;WriteLn(b);end.