Question

написати програму розв'язку задачі в лазарус.
Дано 5 квадратів. Сторона
першого 3 см, а кожного
наступного збільшується на 2
см. Вивести на екран їх площі.

Answer 1

program SquareArea;

var

 i, side, area: integer;

begin

 side := 3; // Початкова сторона першого квадрата

 for i := 1 to 5 do

 begin

   area := side * side; // Розрахунок площі квадрата

   writeln('Квадрат зі стороною ', side, ' має площу ', area, ' см²');

   side := side + 2; // Збільшення сторони для наступного квадрата

 end;

end.