Как-то так это все должно выглядеть (Если я еще не забыла ГОСТы)
Карл Линней был ботаником, но он ввел систематику в биологии
Program abc;
var
n, i: integer;
s: real;
begin
write('Введите n: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('s= ', s);
end.
Program x;
var a,b,c,d,n:integer;
begin
writeln("введите четырехзначное число");
readln(n);
a=n div 10;
b=(n div 100) mod 10;
c=(n mod 100) div 10;
d=n mod 10;
writeln("Ответ: ", Sqr(a+b+c+d));
напиши про разные клавиатуры для компа!!) в интернете оч много интересных фотографий. клавы и прозрачные, и в форме скелета, и гнущиеся, и всякоразные в общем) материала предостаточно, дерзай