<span>var a, b: integer;
begin<span>
writeln(<span>'Введите часы: '</span>);</span>
readln(a);<span>
writeln(<span>'Введите минуты: '</span>);</span>
readln(b);<span>
if (a > 6) and (a < 10) then writeln(<span>'Утро'</span>);
</span><span> if (a = 10) and (b = 0) then writeln(<span>'Утро'</span>);
</span><span> if (a = 6) and (b >= 30) then writeln(<span>'Утро'</span>);</span><span>
if (a > 10) and (a < 16) then writeln(<span>'День'</span>);</span><span>
if (a = 10) and (b >= 1) then writeln(<span>'День'</span>);</span><span>
if (a = 16) and (b <= 30) then writeln(<span>'День'</span>);</span><span>
if (a > 16) and (a < 22) then writeln(<span>'Вечер'</span>);</span><span>
if (a = 22) and (b = 0) then writeln(<span>'Вечер'</span>);</span><span>
if (a = 16) and (b >= 31) then writeln(<span>'Вечер'</span>);</span><span>
if (a > 22) or (a < 6) then writeln(<span>'Ночь'</span>);
</span><span> if (a = 22) and (b >= 1) then writeln(<span>'Ночь'</span>);
</span><span> if (a = 6) and (b <= 30) then writeln(<span>'Ночь'</span>);
</span><span>end.</span></span>
PROGRAM LGJ;
var
m,n:real;
begin
writeln('введите длинну ткани');
readln(m);
writeln('введите отрезаюмую длинну');
readln(n);
if m<n then
writeln('материала не хватает!');
<span>end.</span>
1)
program p1;
var
y,a,b,c,x:real;
begin
readln(a,b,c,x);
y:=((a*sqr(x)) + (b*x) + c);
writeln(y);
end.
3)
program p3;
var
a,b,c:real;
begin
readln(a,b,c);
writeln((a+b+c)/3);
end.
Второй номер.
Для прямоугольника:
program p2;
var
a,b:real;
begin
readln(a,b);
writeln(a*b);
end.
Для треугольника (по формуле Герона):
program p2;
var
a,b,c,p,s:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p * (p-a) * (p-b) * (p-c));
writeln(s);
end.
Насчет ромба не знаю.
