uses DrawMan;
var i:integer;
begin
Field(22,14);
for i:=1 to 4 do
begin
ToPoint(6,7+i);
PenDown;
OnVector(5,-5);
OnVector(5,5);
OnVector(i,-i);
OnVector(-i,-i);
OnVector(-5,5);
OnVector(-5,-5);
OnVector(-i,i);
OnVector(i,i);
PenUp;
end;
end.
Микропроце́ссор — процессор (устройство, отвечающее за выполнение арифметических, логических операций и операций управления, записанных в машинном коде), реализованный в виде одной микросхемы[1] или комплекта из нескольких специализированных микросхем[2] (в отличие от реализации процессора в виде электрической схемы на элементной базе общего назначения или в виде программной модели).
Program DZ;
var a:real;
begin
read (a);
if a>1000 then
begin
a:=a-a/100*15;
write (a:0:3);
end
else write ('скидка не предоставляется');
end.