Вопрос помогите написать программы в Pascal

//ПЕРВОЕ: q,w,e,r,t,y,u,i,o,p,a,s,d,f,g,c:integer; begin readln(q); readln(w); readln(e); readln(r); readln(t); readln; readln(u); readln(i); readln(o); readln(p); readln(a); readln(s); readln(d); readln(f); readln(g); c:=q+w+e+r+t+y+u+i+o+p+a+s+d+f+g; writeln(c); end.

Предыдущий ответ, за строчки кода вам никто не заплатит) Первая задача program first; var sum, temp, i: integer; begin for i:=1 to 15 do begin read(temp); sum:= sum+ temp; end; write(sum); end. Вторая задача program second; var max, temp, i: integer; begin for i:=1 to 10 do begin read(temp); if(max < temp) then max:=temp; end; write(max); end.