Сместиться в точку (1, 4)
опустить перо
сместиться в точку (1, 1)
сместиться в точку (5, 1)
сместиться в точку (5, 4)
сместиться в точку (1, 4)
сместиться в точку (3, 6)
сместиться в точку (5, 4)
поднять перо
сместиться в точку (2, 2)
опустить перо
сместиться в точку (2, 3)
сместиться в точку (4, 3)
сместиться в точку (4, 2)
сместиться в точку (2, 2)
Введите значения переменной MM=3sqr((1+M)*6) 576
Program vika;
var x, y : integer;
begin
writeln ('Ведите x');
readln (X);
writeln ('Ведите y');
readln (y);
if
(x>0) and (y>0) then writeln (' В 1');
else
if (x>0) and (y<0) then writeln ('В 4');
if
(x<0) and (y>0) then writeln ('Во 2');
else
if (x<0) and (y<0) then writeln ('В 3');
end.
немного исправил.