Var s:string;
begin
write('Введите слово более 6 букв');Read(s);
write('символ предыдущий пятому ',s[4], ' символ следующий за пятым ', s[6]);<span>end.</span>
Появление электронной почты можно отнести к 1965 году, когда сотрудники Массачусетского технологического института (MIT) Ноэль Моррис и Том Ван Влек написали программу MAIL для операционной системы CTSS (Compatible Time-Sharing System), установленную на компьютере IBM 7090/7094.
4*2=8
Но если нужна программа, то вот:
var
a: <em>word</em>;
b: <em>byte;</em>
begin
readln(a);
b := a mod 100 div 10;
a := a div 1000 mod 10;
writeln(a, ' * ', b, ' = ', a * b);
end.
Программа на Паскале прилагается.