Возможный вариант решения:
function main(): integer;
begin
var c: cardinal:= ReadInteger('Введите сторону c:');
var n: cardinal:= ReadInteger('Введите сторону n:');
'Площадь прямоугольника: '.Concat((c*n).ToString).Println();
main:= -1;
end;
begin main(); end.
Допустим и следующий код:
var c,n: integer;
begin
writeln('Введи стороны прямоугольника c и n');
readln (c,n);
writeln('s=',c*n);
readln;
end.
