ДАЮ МНОГО БАЛЛОВ! ПОМОГИТЕ СРОЧНО! номер 12 а,г и 13

Question

ДАЮ МНОГО БАЛЛОВ! ПОМОГИТЕ СРОЧНО! номер 12 а,г и 13

---

Answer 1

№12
а)
program 1;
var i,n,sum:integer;
Begin
writeln("Enter n");
readln(n)
sum:=0;
 for i:=1 to n do
  sum:=sum+1;
 writeln("result=",sum);
 readln;
End.

г)
var a,b:integer;
begin
a:=0;
for b:=10 to 99 do
a:=a+b;
writeln (a);
end.

№13