Var i,k:integer; s:real; a:array[1..7] of real;beginclrscr;k:=0; s:=0;writeln('Введите среднюю дневную температуру с понедельника по воскресенье:');for i:=1 to 7 do begin Write(i,'-я:'); readln(a[i]); if a[i]<0 then k:=1; s:=s+a[i]; end; Writeln('Средняя температура за неделю составила ',s/7, ' градусов'); if k=1 then writeln('Были заморозки');end.
1, 2, 3, 4 // номера не могут начинаться с чисел
Var r: real;
begin
read(r);
if (r > 3) and (r < 10) then
write(trunc(r))
else
write(r - trunc(r))
end.