Курсовая работа: Программы в среде Turbo Pascal

Clrscr;

x1:=4;

x2:=76;

y1:=4;

y2:=21;

c1:=chr(205);

c2:=chr(201);

c3:=chr(187);

c4:=chr(186);

c5:=chr(200);

c6:=chr(188);

yf:=10;

gotoxy(23,yf);

writeln('1. " Рассчитать длину средней линии трапеции "');

yf:=yf+1;

gotoxy(23,yf);

writeln('2. "Пронумеровать матрицу по её второй норме"');

yf:=yf+1;

gotoxy(23,yf);

writeln('3. "Выход"');

yf:=yf+1;

gotoxy(23,yf);

gotoxy(23,yf);

writeln;

yf:=yf+1;

gotoxy(23,yf);

writeln('Введите номер задания для выполнения (1-3)');

yf:=yf+19;

gotoxy(23,yf);