1.
uses crt;
var a,b,c:Integer;
Begin
Writeln('Введите а');
Readln(a);
Writeln('Введите b');
Readln(b);
if odd(a) then C:=A*B
else C:=A+B;
WriteLn( c );
Readln;
end.

2.
uses crt;
var a,b,c:Integer;
P,S:Real;
Begin
Writeln('Введите а');
Readln(a);
Writeln('Введите b');
Readln(b);
Writeln('Введите c');
Readln( c );
P:=(a+b+c)/2; {полупериметр}
S:=sqrt(P*(P-a)*(P-b)*(P-c))
Writeln(s);
Readln;
end.