Задача 6.1. Скласти програму - меню. В залежностi вiд потреби об- числити суму, рiзницю, добуток, або частку двох чи- сел a = 2.485, b = 99.01.

Program PR1;
 Const a=2.485; b=99.01;
 Var i:integer;
 Rez : Real;
 Label 1;
Begin
 1: WriteLn (' М Е Н Ю ');
 WriteLn ('1 - Обчислення a + b');
 WriteLn ('2 - Обчислення a - b ');
 WriteLn ('3 - Обчислення a * b ');
 WriteLn ('4 - Обчислення a / b ');
 Write ( 'Введи номер потрiбного пункту - '); ReadLn(i);
 Case i of
         1: Rez:=a+b;
         2: Rez:=a-b;
         3: Rez:=a*b;
         4: Rez:=a/b;
 Else
 Begin
 WriteLn ('Помилка !!!');
 Goto 1;
 End;
 End;
 WriteLn('a= ',a:5:2,' b= ',b:5:2);
 WriteLn('Rez= ',Rez:5:2);
 WriteLn; Write('Повторити (1 - Так, 0 - Нi) ' ); ReadLn(i);
 If i=1 Then Goto 1;
 WriteLn('К ІН Е Ц Ь ')
End.

Фрагмент результату роботи програми:
М Е Н Ю
1 - Обчислення a + b
2 - Обчислення a - b
3 - Обчислення a * b
4 - Обчислення a / b
Введи номер потрiбного пункту - 1
a= 2.49 b=99.01 Rez= 101.50
Повторити (1 - Так, 0 - Нi) 1
М Е Н Ю
1 - Обчислення a + b
2 - Обчислення a - b
3 - Обчислення a * b
4 - Обчислення a / b
Введи номер потрiбного пункту - 2
a=2.49 b= 99.01
Rez= -96.52
Повторити (1 - Так, 0 - Нi) 0
К ІН Е Ц Ь

Завдання 6.1. Скласти програму з використанням принципу меню.