Написать в программе кумир алгоритм для чертежник. нарисовать этот дом.

как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст

вот она

program ohotnik;

uses crt;

var i: integer;

begin 

clrscr;

textcolor(4);

write(' ka}i{gbiu ');

textcolor(12);

write(' oxothuk ');

textcolor(14);

write(' }i{ejiaet ');

textcolor(2);

write(' 3hatb ');

textcolor(3);

write(' rge ');

textcolor(1);

write(' cug9t ');

textcolor(5);

write(' fa3ahbi ');

readln;

end.

зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..

var a: array [1..10] of real;

s,i: integer;

begin

  {vvod tablicy}

  for i : = 1 to 10 do

      if a[i]< > 0 then s: =s+1;

  writeln(s);

end.

0

+1=1

+1=2

*2=4

+1=5

+1=6

*2=12

*2=24

+1=25

*2=50

var a,a12,a1,a2,a3,s: integer; begin readln(a); a1: =a div 100; a12: =a mod 100; a2: =a12 div 10; a3: =a12 mod 10; s: =a1+a2+a3; writeln(s); end.

a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа