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,b,c,s:integer;beginread(a);read(b);read(c);s:=a*b*c;writeln('s= ',s);
<span>В Power Point'e можно зайдя в Средства рисования (1), далее выбираем фигуры, изгибы стрелки (2) и рисуем(3), далее делаем скрин заходим например в Paint (или любой другой графический редактор) и сохраняем как рисунок.
</span><span>В Paint'e так же выбираем фигуры и рисуем...
Ну можно ещё в Gimp'e сделать, не говоря уже про Adobe Photoshop)</span>
Program HelloWorld;
var S: double;
begin
writeln('Введите массу тела:');
readln(S);
writeln('Масса кислорода и атомов равна:');
S:=S*0.68;
writeln(S:15:2);
end.