Алгоритми і програми з розгалуженнями

88…100: mark:= 'відмінно';

71…87: mark:= 'добре';

50…70: mark:= 'задовільно';

0…49: mark:= 'незадовільно';

else mark: = '0'

end;

if mark < > '0' then writeln (name:15, mark:15)

else writeln ('помилка під час введення кількості балів'):

end.

або інший приклад:

case k of

1; cina:=22,

2,3: cina:=35;

4: cina:=50;

else cina:=97

end;

3. Складена команда.

Складена команда - це команда, в якій декілька команд об'єднано в одну за допомогою службових слів begin та end:

begin <команда 1>; <команда 2>; … <команда n>; end;

Задача. Скласти програму, яка дає довідку про назву столиці (St) та кількість населення (nas, у мільйонах) деякої країни (kr) з такого переліку: Угорщина, Італія, Україна.

program Countries;

var kr, st: string; nas: integer;

begin

write ('Введіть назву країни');

readln (kr);