Есть много решение этой задачи. Вот моё.
program n_1;var a:real;beginread(a);a:= a / 2;writeln(a,' ',a);end.
Громкий, тихий, остальные - вкус, цвета, размеры.
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
for var i:=0 to a.RowCount-1 do begin
var row:=a.Row(i);
var imin:=row.IndexMin;
Swap(row[imin],row[row.High]);
a.SetRow(i,row)
end;
Writeln('*** Полученный массив ***'); a.Println(4)
end.
N = int(input()) # считываем число N
phi_previous = 0 # нулевое число Фибоначчи
phi = 1 # первое число Фибоначчи
for i in range(N - 1): # в цикле каждый раз находим следующее число Фибоначчи, 0 и 1 уже нашли, осталось провернуть цикл N - 1 раз
phi, phi_previous = phi + phi_previous, phi
print(phi if N > 0 else 0) # выводим ответ. Особый случай: если N = 0, то в phi находится первое число Фибоначчи, а не нулевое.
<span>Компью́терная гра́фика (также маши́нная графика) — область деятельности, в которой компьютеры используются в качестве инструмента как для синтеза (создания) изображений, так и для обработки визуальной информации, полученной из реального мира.
</span>