Вот условие задачи:Составить программу,осуществляющую перевод величин из радианной меры в градусную или наоборот.Программа должна запрашивать,какой перевод нужно осуществить,и выполнить указанное действие.
Вот код программы:

program numb67;
uses crt;
var
a : integer;
f,x:real;
begin
clrscr;
write('vvedi 1 dlya perevoda i3 gradusov v radiani ili 2 dlya perevoda radian v gradusi = ');
readln(a);
If (a=1) then
     write('vvedi kol-vo gradusov = ');
     readln(x);
     f:=x*3.14/180 ;
     writeln('v radianah eto budet',f:6:2);
If (a=2) then
     write('vvedi kol-vo radian = ');
     readln(x);
     f:=x*180/3.14 ;
     writeln('v gradusah eto budet',f:6:2);
readln;
end.

Но он почему-то не выводит мне результат =( может кто подскажет в чем проблема?

program numb67;
uses crt;
var
a : integer;
f,x:real;
begin
clrscr;
write('vvedi 1 dlya perevoda i3 gradusov v radiani ili 2 dlya perevoda radian v gradusi = ');
readln(a);
If (a=1) then
     begin { *** <--- *** }
     write('vvedi kol-vo gradusov = ');
     readln(x);
     f:=x*3.14/180 ;
     writeln('v radianah eto budet',f:6:2);
     end; { *** <--- *** }
If (a=2) then
     begin { *** <--- *** }
     write('vvedi kol-vo radian = ');
     readln(x);
     f:=x*180/3.14 ;
     writeln('v gradusah eto budet',f:6:2);
     end; { *** <--- *** }
readln;
end.

Сенкс!