Используя составленные ранее программы для исполнителя чертежник как вс составьте программу для построения изображения. ​

1) 

var a:array [1..100] of integer;

n,i:integer;

begin

for i:=10 to 99 do begin

a[i]:=i;

if (a[i] mod n=0) then writeln(a[i]);

end;

end.

 

 2)

var a:array [1..100] of integer;

n,k,i,x,y,z: integer;

begin

readln(n,k);

for i:=n to k do begin

a[i]:=i;

x:=a[i] mod 10;

y:=a[i] div 10;

z:=y mod 10;

y:=y div 10;

if (x=y) or (x=z) or (y=z) then writeln(a[i]);

end;

end.

 

 3)

 var a,n,an,na: integer;

begin

readln(a,n);

if (a>0) and (b>0) then begin

an:=a*10+n;

na:=n*10+a else writeln('Введены неверные числа!');

end;

end.

Var
  stack : array [1..1000] of double;
  op1, op2 : double;
  i : integer;
  c : char;
begin
  i := 0;
  while not eoln do
  begin
    read (c);
    if c in ['0'..'9'] then
    begin
      inc (i);
      stack[i] := ord (c) - ord ('0');
    end
    else if c <> ' ' then
    begin
      if i < 2 then
      begin
        writeln ('Error!'); halt;
      end;
      op2 := stack[i];
      dec (i);
      op1 := stack[i];
      case c of
        '+' : stack[i] := op1 + op2;
        '-' : stack[i] := op1 - op2;
        '*' : stack[i] := op1 * op2;
        '/' : stack[i] := op1 / op2;
      end;
    end;
  end;
  if i <> 1 then
    writeln ('Error!')
  else
    writeln (stack[i]);
end.