Ответ:
program abc;
var s:string;
begin
readLn(s);
writeLn(ord(s[1])+ord(s[2])+ord(s[3])+ord(s[4])+ord(s[5]))
end.
Объяснение:
Е:\видеозапись.avi
Е:\график.xIs
Е:\ИЗОБРАЖЕНИЯ\аквариум.bmp
Е:\ИЗОБРАЖЕНИЯ\ФОТО\Бия.jpeg
Е:\ИЗОБРАЖЕНИЯ\ФОТО\Катунь.jpeg
Е:\ТЕКСТЫ\буква.txt
Е:\ТЕКСТЫ\онегин.doc
Е:\мелодия.mp3
Е:\презинтация.ppt
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.