напишите программу , которая получает с клавиатуры номер месяца и определяет , сколько дней в этом месяце. При вводе неверного номера месяца …

const alphabet="";
var FileName:string

procedure ReadFile(FileName:string);
var f:text;
s:string;
i,k:integer;
begin
    assign(f,FileName);
    reset(f);
    while not eof (f) do begin { пока не конец файла }
        readln (f, s);
        for i:= 1 to length(s) do begin
          k:=pos(s[i], alphabet);
            if k=1 then k=length(alphabet); {это приколы изза я}
            if k>1 then s[i]:=alphabet[k-1];
      end;
        writeln(s);
    end;
    close(f);
end;

Begin
    read(FileName);
    ReadFile;
    readln;
End.

Program z2_65;

uses crt;

Label a1,a2,a3,a4,a5,a6,a7;

var a,s,h,rv,ro,p:real;

n:integer;

begin

clrscr;

Writeln('Укажите номер пункта:');

writeln('1. Дана сторона треугольника.');

writeln('2. Дана площадь треугольника.');

writeln('3. Дана высота треугольника.');

writeln('4. Дан радиус вписанной окружности треугольника.');

writeln('5. Дан радиус описанной окружности треугольника.');

read(n);

case n of

1:Begin Write('a=');read(a);goto a1;end;

2:begin Write('s=');read(s);goto a2;end;

3:Begin Write('h=');read(h);goto a3;end;

4:Begin Write('r=');read(rv);goto a4;end;

5:Begin Write('R=');read(ro);goto a5;end;

else

begin

write('Такого номера пункта нет.');

goto a7;

end;

end;

a1: rv:=a/2;

ro:=a/Sqrt(3);

s:=sqrt(3)*sqr(a)/4;

h:=2*s/a;

goto a6;

a2: a:=sqrt(4*s/sqrt(3));

h:=2*s/a;

rv:=a/2;

ro:=a/Sqrt(3);

goto a6;

a3: a:=2*h/sqrt(3);

s:=a*h/2;

rv:=a/2;

ro:=a/Sqrt(3);

goto a6;

a4: a:=2*rv;

ro:=a/Sqrt(3);

s:=sqrt(3)*sqr(a)/4;

h:=2*s/a;

goto a6;

a5: a:=sqrt(3)*ro;

s:=(a*a*a)/(4*ro);

h:=2*s/a;

rv:=a/2;

a6: writeln('a=',a:2:2);

writeln('s=',s:2:2);

writeln('h=',h:2:2);

writeln('R=',ro:2:2);

writeln('r=',rv:2:2);

a7: readkey;

end.