решите задачу c programm var begin и т.д 9 класс . 20 баллов

VarA,B:integer;S:real;BeginWrite('A = ');ReadLn(A);Write('B = ');ReadLn(B);S:=0;For A:=A to B-1 do    S:=S+A;WriteLn(S)End.VarK,N,i:integer;BeginWrite('K = ');ReadLn(K);N:=K+5;i:=0;While i<N do   Begin   i:=i+1;   Write(K);   End;End.