Исполнитель чертёжник пе­ре­ме­ща­ет­ся на ко­ор­ди­нат­ной плоскости, остав­ляя след в виде линии. чертёжник может вы­пол­нять ко­ман­ду сместиться на (a, b) (где a, b — целые числа), пе­ре­ме­ща­ю­щую чертёжника из точки с координатами (x, у) в точку с ко­ор­ди­на­та­ми (x + а, у + b если числа a, b положительные, зна­че­ние со­от­вет­ству­ю­щей ко­ор­ди­на­ты увеличивается; если отрицательные, уменьшается. например, если чертёжник на­хо­дит­ся в точке с координатами (4, 2), то ко­ман­да сме­стить­ся на (2, −3) пе­ре­ме­стит чертёжника в точку (6, −1). запись повтори k раз команда1 команда2 ко­ман­даз конец означает, что по­сле­до­ва­тель­ность ко­манд команда1 команда2 командаз по­вто­рит­ся k раз. чертёжнику был дан для ис­пол­не­ния сле­ду­ю­щий алгоритм: повтори 5 paз сместиться на (0, 1) сме­стить­ся на (−2, 3) сме­стить­ся на (4, −5) конец координаты точки, с ко­то­рой чертёжник на­чи­нал движение, (3, 1). ка­ко­вы ко­ор­ди­на­ты точки, в ко­то­рой он оказался? 1) (15, −6) 2) (14, −5) 3) (13, −4) 4) (12, −3)

Ниже приведен вариант, когда программа запустится, но не выполнится:

program Zadacha;  // удален символ 1

var a, b, c, d, s, p, r, q: integer;

begin // began заменен на begin

write (‘Ведите первое число=’, a); // В конце вместо , должно быть ;

writeln (‘Ведите второе число=’, b);// В конце вместо , должно быть ;

writeln (‘Ведите третье число=’, c);// В конце вместо , должно быть ;

writeln (‘Ведите четвертое число=’, d);

s:=a+b+c+d;

p:=a*b*c*d;

r:=a-b-c-d;

q:=a div b;

writeln ('Сумма=',s);

writeln ('Произведение=',p);

write ('Разность=',r);

write ('Частное=',q)

end.

Чтобы программа выполнялась нормально, нужно изменить ее следующим образом:

program Zadacha;

var a, b, c, d, s, p, r, q: integer;

begin

write ('Ведите первое число='); read(a);

writeln ('Ведите второе число='); read(b);

writeln ('Ведите третье число='); read(c);

writeln ('Ведите четвертое число='); read(d);

s:=a+b+c+d;

p:=a*b*c*d;

r:=a-b-c-d;

q:=a div b;

writeln ('Сумма=',s);

writeln ('Произведение=',p);

write ('Разность=',r);

write ('Частное=',q)

end.

Также остается неясным, что подразумевалось под "разностью" и "частным". Если "разностью" еще можно назвать выражение a-b-c-d, то a/b - точно не частное. Это только целая часть от деления a на b. Чтобы это было частным, нужно переменную q объявить как real:

program Zadacha;

var a, b, c, d, s, p, r: integer;

var q: real;

begin

...

1.

var n1,n2,n3: integer;

begin

writeln('Введите n1,n2,n3: ');

readln(n1,n2,n3);

if (n2<n1) then swap(n2,n1);

if (n3<n1) then swap(n3,n1);

if (n3<n2) then swap(n3,n2);

writeln('n1,n2,n3 в возрастающем порядке: ',

n1,' ',n2,' ',n3);

end.

2.

var a,b,c: integer;

var s: real;

begin

writeln('Введите a,b,c: ');

readln(a,b,c);

s:=(a-b-c)/(sqrt(a*b*c));

writeln(s);

end.

3.

var a,b,c: integer;

var s: real;

begin

writeln('Введите a,b,c: ');

readln(a,b,c);

s:=(a+b+c)/3;

writeln('Среднее арифметическое: ',s);

end.

4.

var a,b: integer;

var s: real;

begin

writeln('Введите a,b: ');

readln(a,b);

if ((a>0) and (b>0)) then s:=a+b

else s:=a*a-b*b;

writeln(s);

end.