помогите решить пожалуйста через integer или real.

Var pn, vt, sr, ct, pt, sb, vs: Integer;
res: real;
begin
writeln('Введите температуру');
writeln('Пн gt;gt; '); readln(pn);
writeln('Вторник gt;gt; '); readln(vt);
writeln('Среда gt;gt; '); readln(sr);
writeln('Четверг gt;gt; '); readln(ct);
writeln('Пятница gt;gt; '); readln(pt);
writeln('Суббота gt;gt; '); readln(sb);
writeln('Воскресенье gt;gt; '); readln(vs);
res := (pn + vt + sr + ct + pt + sb + vs) / 7;
writeln(res:0:2);
end.