program 

برنامه ۵ عدد
var 
i , n, sum:integer;
begin
for i:= 1 to 5 do 
begin 
	read (n);
	sum := sum + n ;
end;
write ('sum =', sum);
end.	

program B;

var
day,month,year,n:integer;
begin
write ('insert birthbay  13??  ');
	read (n);
	year := 1386-n;
	month := year *12;
	day := year *365;
writeln ('year =',year'month =',month'day =',day);
end .