Написать калькулятор геометрических фигур — Pascal(Паскаль)

 uses CRT,Utils;
procedure Gives (var u2: longint);                     {сложение чисел от 1 до i}
var i,u1:longint;
begin
writeln ('Ввести число, до которого будем складывать');
read (i);
for u1:= 1 to i do
u2:= u2 + u1;
showmessage ('Задача выполнена!');
writeln (' Число на выводе = ' , u2);
readln;
end;
function Od (r: integer): real;                                 {нахождение обратного числа}
begin
writeln ('Ввести число');
readln (r);
od:= 1/r;
end;
function ST (a,b,c: longint): longint;                           {нахождение площади треугольника}
begin
writeln ('Ввести измерения треугольника');
readln (a,b,c);
ST:= a * b * c;
showmessage ('Задача выполнена!');
end;
function PC (d: longint): real;
begin
writeln ('Ввести радиус окружности');                            {нахождение длины окружности}
readln (d);
PC:= d * 6.28;
showmessage ('Задача выполнена!');
end;
procedure SAVEto (var a,b: longint);                              {запись в память}
begin
b:= a;
showmessage ('Задача выполнена!');
end;
var main,g,h,j,k,l,m,n,o,p,s: longint;
    w:char;
begin
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-сложение');
writeln('2-обратное число');
writeln('3-площадь треугольника');
writeln('4-длина окружности');
writeln('5-запись в память');
writeln('другое - выход');
readln(w);
case w of
'1': gives (j);
'2': begin
     writeln (od (k));
     readln;
     end;
'3': begin
     writeln (ST (l,m,n));
     readln;
     end;
'4': begin
     writeln(PC (o));
     readln;
     end;
'5': SAVEto(m,n);
else exit;
end;
until not(w in ['1'..'5']);
end.