Склавиатуры вводим 5 чисел. сосчитать их сумму.

Ну и, что же тут думать ввела любые 5 чисел и сосчитала
Например: 5;2;1;0;7
 5+2+1+0+7=15

Program one; var i, sum: integer; begin sum:=0 for i:=1 to 5 sum:=sum+i writeln (sum); end.