Ответ:

Объяснение:

1.

program CutFromSheet;

var a,b,c: integer;

begin

Write('Input a, b, c:');

Readln(a,b,c);

WriteLn('New size is ', a*b-c*c);

end.

2.

program RectangleSize;

var a,b: integer;

begin

Write('Input a, b: ');

Readln(a,b);

WriteLn('Rectangle size is ', a*b);

end.