1) Name: aray[1..10] of integer;
3)scr(1) scr(2) ...
4) Program Name;
uses crt;
var a,b,c:integer;
BEGIN
b:=0;
for a:=1 to 100 do
begin
b:=b+a;
end;
write ('Vash resultat =', b);
readln;
<span>END.
</span>
Для того что бы вводить нужные нам знаки
к примеру : даже сейчас я пользуюсь
клавиатурой
Я ВИЖУ СВОЙ КОМПЬЮТЕР ТАК ЧТО ОН БЕЛОГО ЦВЕТА СТОИТ НА МОЁМ НОВОМ СТОЛИКЕ ТАМ ГДЕ Я ОБЫЧНО ДЕЛАЮ ДОМАШНЕЕ ЗАДАНИЕ . ОН УМЕЕТ С ТОБОЙ РАЗГОВАРИВАТЬ И ВЫПОЛНЯТЬ ЕЩЁ МНОГО ИНТЕРЕСНЫХ ФУНКЦИЙ
Var i,k,x,y,l,m,s:integer;
begin
readln(k);
readln(x);
readln(y);
readln(l);
readln(m);
for i:=1 to k do
begin
s:=x*l;
x:=x+y;
l:=l+m;
end;
writeln(s);
end.
Если нужно, переменные можно вводить в 1 строку через пробел, записав так: readln(a,b,c,d)