ДАВАЙТЕ
ПРЕДПОЛОЖИМ, ЧТО ВАМ ПРЕДСТОИТ НАПИСАТЬ ПРОГРАММУ С НЕСКОЛЬКИМИ УСЛОВИЯМИ! ДЛЯ
УДОБСТВА НАПИСАНИЯ ТАКОЙ ПРОГРАММЫ, ВАМ СУЩЕСТВЕННО МОЖЕТ ПОМОЧЬ ИСПОЛЬЗОВАНИЕ
БЛОКОВ BEGIN-END. ДЕЛО ВСЁ В ТОМ, ЧТО В ГЛАВНОМ
ТЕЛЕ ПРОГРАММЫ МОЖЕТ ПРИСУТСТВОВАТЬ ЛЮБОЕ КОЛИЧЕСТВО ТАКИХ БЛОКОВ. ПРИ ЭТОМ,
КАЖДЫЙ ОТДЕЛЬНЫЙ ТАКОЙ БЛОК БУДЕТ СЧИТАТЬСЯ ОДНОЙ КОНСТРУКЦИЕЙ, НАПРИМЕР:
PROGRAM Primer (INPUT,OUTPUT);
CONST
Limit = 1000;
VAR
Amount: REAL;
BEGIN
WRITELN (‘ПОЖАЛУЙСТА, ВВЕДИТЕ СУММУ:’);
READLN (Amount);
IF Amount <= Limit THEN
BEGIN
WRITELN
(‘ВАШ РАСХОД ПРИНЯТ!’);
WRITELN
('ВАША ЦЕНА ВМЕСТЕ С НАЛОГАМИ:' 1.05*Amount:0:2);