Ответом ялвляется струйный притер для массовой цветной печати.
Ответ №3
Var n,pr,a:integer;
begin
readln (n);
pr:=1;
repeat
read(a);
if (a>=-2) and (a<=2) then pr:=pr*a;
n:=n-1;
until n=0;
write (pr);
end.
Var p :integer; a, s :real;
begin
readln(p); a:= p/4; s:= sqr(a); writeln('Сторона квадрата равна ',a); writeln('Площадь квадрата равна ',s);
<span>end.</span>
6542+4321=13063+5563=20646+7543=30411