Var a,b:string;
i: integer;
begin
write('Введите строку: '); readln(a);
b:='';
for i:= 1 to length(a) do b:=b+a[i]+a[i];
write('Новая строка: ',b);
end.
Var
i, n, s, t: integer;
begin
Read(n);
s:=0;
for i := 1 to n do begin Read(t); s := s + t end;
Writeln(s)
end.
<u>Можно выделить такие основные группы клавиш:</u>
цифро-буквенная - печать букв цифр, знаков и пробел
функциональная - клавиши F1..F12
клавиши для управления курсором - иными словами стрелочки и некоторые клавиши NumLock`a
доп. клавиши(NumLock)- Печать цифр или управление курсором(стрелочки)
служебные - клавиши расположены по обе стороны цифро-буквенных(Alt, Ctrl, Shift, TAB, Win, Scroll Lock, Pause, Break, Print Screen, SysRq, ...)