Const a:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var b:integer;
begin
readln(b);
writeln(a[b]);
<span>end.</span>
Если это Паскаль, то вот:
program prog1;
var h, a: integer;
P, b, S: real;
begin
write('Высота=');
readln(h);
write('Основание=');
readln(a);
S:=h*a/2;
b:=sqrt((a/2)*(a/2)+h*h);
P:=b+b+a;
writeln('Периметр= ',P);
writeln('Площадь= ',S);
end.
Первое: https://pastebin.com/T5FRuLER
Второе: https://pastebin.com/0GQ2e9Fd