Составить программу вычисления средней температуры за месяц

Program z; uses crt; var s,x,i: real; beginclrsc; x: =0for i: =1 to 30 do begin writeln ('введите температуру'); readln (x); sr: =sr+x; end; y: =sr/30; writeln ('ср темп равна',y); readln; end.