15 lines
470 B
ObjectPascal
15 lines
470 B
ObjectPascal
// Исполнитель Чертежник - отличное средство для начального обучения программированию
|
|
// школьников младших и средних классов
|
|
// Для генерации шаблона задания нажмите Ctrl-L и наберите DM и имя задания
|
|
uses Drawman;
|
|
|
|
begin
|
|
Task('a1');
|
|
ToPoint(2,3);
|
|
PenDown;
|
|
OnVector(1,2);
|
|
PenUp;
|
|
ToPoint(0,0);
|
|
end.
|
|
|