Pascalabc. решить, . составьте программу подсчета площади равнобедренного треугольника. если площадь треугольника четная, разделить ее на 2, в противном случае вывести сообщение "не могу делить на 2! "

program pl1

var a, h, s: real;

begin

readln (a);

s: =a*h/2;

writeln('s=', s);

end.

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.

program strangle;

var

a: integer;

begin

readln(a);

if a = 180 then writeln('yes') else writeln('no');

end;