1 var a, b, c, n, i: integer;
2
3 begin
4 writeln('Vvedite N');
5 readln(n);
6 a :=1; b :=1;
7 for i := 3 to n do begin
8 c := a + b;
9 a := b;
10 b :=c;
11 end;
12 writeln(c);
13 end.
Третяя правильная ну последняя
Ты должна сама настроить цветовую гамму.При желании сохрани в палитре.
Возведение в квадрат
var a: integer;
begin
read(a);
write(a^2);
end.