text:
program sample11;
var n, sum, data : integer;
begin
	writeln('input the number of data');
	readln(n);
	sum := 0;
	while n > 0 do begin
		readln(data);
		sum := sum + data;
		n := n - 1
	end;
	writeln('Sum of data = ', sum)
end.

ext: mpl

max_issues_repo_name: shouth/LanguageProcessing

max_forks_repo_name: Hiroya-W/lang-processing

lm_label:
1. NO
2. NO


text:
program whilest;	{sample26}
var
 n,
 i,
 sum
 : integer;
begin
readln(n);i:=n;sum:=0;
while i>0 do begin
sum :=             sum
 + i;i:=i-1
end;writeln('Summention of 1 - ', n, '  is ', sum)
end.