1、
(1)
VAR
   i, j: INTEGER;
BEGIN
    FOR i:=1 TO 5 DO BEGIN
        FOR j:=1 TO 5 - i DO WRITE(' ');
        FOR j:=1 TO 5 DO WRITE('*');
        WRITELN;
    END;
END.
(2)
VAR
   i, j: INTEGER;
BEGIN
    FOR i:=1 TO 5 DO BEGIN
        FOR j:=1 TO 5 - i DO WRITE(' ');
        FOR j:=1 TO i * 2 - 1 DO WRITE('*');
        WRITELN;
    END;
END.
(3)
VAR
   i, j: INTEGER;
BEGIN
    FOR i:=-2 TO 2 DO BEGIN
        FOR j:=1 TO ABS(i) DO WRITE(' ');
        FOR j:=1 TO (3 - ABS(i)) * 2 - 1 DO WRITE('*');
    END;
END.

2、A = 24  B = 8

第二题用两个循环就行了啊:
var a,b:longint;
begin
  for a:=1 to 1000 do
   for b:=1 to 1000 do
    if a mod b=0 then
     if (a+b)+(a-b)+a*b+a div b=243 then writeln(a,' ',b);
end.
貌似答案不唯一．．．．．