Uses drawman;
begin
field(10,10);
ToPoint(1,1);
PenDown;
onvector(3,2);
onvector(1,-2);
ToPoint(1,1);
end.
INPUT a$FOR i = 1 TO LEN(a$) b$ = MID$(a$, i, 1) IF i = LEN(a$) THEN ELSE h$ = h$ + b$ + "-" END IFNEXT iPRINT h$ + b$
"Винчестер", если о магнитном =)
Program konf;
var a, b, summ: real;
begin
a := 1.2;
readln(b);
while a < 2 do
begin
summ := a * b;
writeln(summ, ' za ', a);
a := a + 0.2
end;
<span>end.</span>