Free Pascal1. Составить программу для вычисления площади прямоугольника по его длинам сторон a и b. 2. Даны два целых числа x и y. Составить программу для нахождения большего из них. 3. Составить программу для вывода на экран натуральных чисел от 1 до 10. 4. Составить программу для решения задачи: Сколько пирожков испечёт хозяйка за неделю, если в первый день она испекла 4 пирожка, а в каждый последующий день – в два раза больше, чем в предыдущий? 5. (*) С клавиатуры вводятся последовательно N натуральных чисел. Найти большее из них.

Предыдущий
вопрос Следующий
вопрос

Программа для вычисления площади прямоугольника:
program RectangleArea;

var
a, b: real;
area: real;

begin
writeln('Введите длину стороны a: ');
readln(a);
writeln('Введите длину стороны b: ');
readln(b);

area := a * b;

writeln('Площадь прямоугольника равна ', area:0:2);
end.

2. Программа для нахождения большего из двух чисел:
```pascal
program MaxNumber;
var
x, y, max: integer;
begin
writeln('Введите два целых числа: ');
readln(x);
readln(y);
if x > y then
max := x
else
max := y;
writeln('Большее число: ', max);
end.Программа для вывода натуральных чисел от 1 до 10:
program NaturalNumbers;

var
i: integer;

begin
for i := 1 to 10 do
writeln(i);
end.

4. Программа для расчета количества пирожков:
```pascal
program PirozhkiCount;
var
pirozhki, day: integer;
begin
pirozhki := 4;
for day := 2 to 7 do
begin
pirozhki := pirozhki * 2;
end;
writeln('За неделю хозяйка испечет ', pirozhki, ' пирожков');
end.(*) Программа для нахождения большего из N чисел:
program MaxOfN;

var
n, i, number, max: integer;

begin
writeln('Введите количество чисел N: ');
readln(n);

writeln('Введите ', n, ' натуральных чисел: ');
readln(number);
max := number;

for i := 2 to n do
begin
readln(number);
if number > max then
max := number;
end;

writeln('Наибольшее число: ', max);
end.