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

program z1;

var a:integer;

o:boolean;

begin

write ('Введите число: ');

readln (a);

o:=(a>99) and (a<1000);

if o then writeln ('ответ: да') else writeln ('ответ: нет')

end.

Объяснение:

uses GraphABC;

begin

line(0,0,640,240);

line(45,0,640,240);

line(89,0,640,240);

line(132,0,640,240);

line(176,0,640,240);

line(219,0,640,240);

line(263,0,640,240);

line(306,0,640,240);

line(350,0,640,240);

line(393,0,640,240);

line(437,0,640,240);

line(480,0,640,240);

end.

uses GraphABC;

begin  

line(0,0,640,0);

line(0,47,640,47);

line(0,94,640,94);

line(0,141,640,141);

line(0,188,640,188);

line(0,235,640,235);

line(0,282,640,282);

line(0,329,640,329);

line(0,376,640,376);

line(0,423,640,423);

line(0,470,640,470);

end.

Объяснение:

uses GraphABC;

begin

line(0,0,640,240);

line(45,0,640,240);

line(89,0,640,240);

line(132,0,640,240);

line(176,0,640,240);

line(219,0,640,240);

line(263,0,640,240);

line(306,0,640,240);

line(350,0,640,240);

line(393,0,640,240);

line(437,0,640,240);

line(480,0,640,240);

end.

uses GraphABC;

begin  

line(0,0,640,0);

line(0,47,640,47);

line(0,94,640,94);

line(0,141,640,141);

line(0,188,640,188);

line(0,235,640,235);

line(0,282,640,282);

line(0,329,640,329);

line(0,376,640,376);

line(0,423,640,423);

line(0,470,640,470);

end.