Var n,k,sum,i:integer;
begin
readln (n);
if (n<10)and(n>-10) then
for i:=1 to 10 do begin
if n mod i=0 then
sum:=sum+i;
k:=k+1;
end;
writeln(sum, ' ', k);
end.
Var ,integer,real, begin , if then else , while do begin , команды присваивания
Var s,i:integer;
a:array[1..100] of integer;
begin
for i:=1 to 12 do begin
readln(a[i]);
end;
s:=0;
for i:=1 to 12 do begin
s:=s+a[i];
end;
writeln(s);
end.
Var a, b : integer;
Begin
Write('Введите число а: ');
Readln(a);
Write('Введите число b: ');
Readln(b);
If a < b then begin
A := 0;
B := a * b;
Write('a = ', a, 'b = ', b);
End
Else
Begin
B := 0;
A := a * b;
Write('a = ', a, 'b = ', b);
End;
End.