Program zap_17;
Uses Crt;
Const n=7;
Type temper = record
dat1,den:string[20];
t,vl:integer;
end;
Var a : array[1..n] of temper;
i :byte;
BEGIN
ClrScr;
for i:=1 to n do
with a[I] do
begin
Writeln('Введите дату');
Readln(dat1);
Writeln(' Введите день недели');
Readln(den);
Writeln(' Введите температуру воздуха');
Readln(t);
Writeln(' Введите влажность');
Readln(vl);
End;
Writeln('График изменения температуры');
for i:=1 to n do
with a[I] do
writeln (dat1,' ',den,' ',t,' ',vl);
Readln;
end.