Напишите программу, вычисляющую и выводящкю 10 первых членов последовательности фибоначчи

Алгоритм -- это однозначно определенная последовательность действий, записанная на понятном исполнителю алгоритмическом языке и определяющая процесс перехода от исходных данных к результату.
Во-первых, алгоритм состоит из конечного набора инструкций или шагов, во-вторых, каждый шаг трактуется исполнителем единственным образом, что позволяет гарантированно получить решение для некоторого набора входных данных, в-третьих, алгоритм всегда сводится к некоторому преобразованию исходных данных в результат или результаты. В этом смысле формулы для решения квадратного уравнения или даже четко составленную инструкцию по варке кофе можно считать алгоритмами, выполнимыми исполнителем-человеком. Для машины, разумеется, требуется более четкая формализация задачи, чем для человека, понимать естественный язык компьютеры пока не отсюда необходимость учета при составлении алгоритма ограниченного набора инструкций ЭВМ.

Программа -- это реализация алгоритма на конкретном языке программирования. Совокупность существующих программ образует программное обеспечение (ПО). ПО принято делить на 2 вида.

Вот моя игра .  Угадай число.

program k2game;
uses crt;
var i,a,n:integer;
begin
textbackground(14);
clrscr;
gotoxy(33,2);
textcolor(4);
writeln('Игра "Угадай число!" ');
delay(400);
textcolor(5);
gotoxy(23,4);
writeln('1. Компьютер загадывает число от 0 до 9.');
delay(840);
textcolor(5);
gotoxy(23,5);
writeln('2. Ваша задача - угадать это число!');
delay(840);
textcolor(5);
gotoxy(23,6);
writeln('3. Не забывайте, что у вас всего две попытки!');
delay(640);
textcolor(5);
gotoxy(23,7);
writeln('4. Если же вы ошиблись, то компьютер даст вам подсказку.');

randomize;
a:=random(10);
n:=0;
textcolor(0);
repeat
gotoxy(23,9);
введите число.');
gotoxy(23,10);
readln(i);
if (i <> a) then
begin
n:=n+1;
gotoxy(23,11);
if (i>a) then writeln('Подсказка: Загаданное число меньше.')
else writeln('Подсказка: Загаданное число больше.')
end;
until ((i=a) or (n=2));

gotoxy(23,13);
textcolor(2);
if (i=a) then writeln('Поздравляю! Вы выйграли!')
Else writeln('К сожалению,н

о вы проиграли!');

end.