Іть 3 клас закодуй у вигляді ребуса одне зі слів: учитель, школа, компютер, калькулятор

Y4nt3лb -учитель; ))

как-то

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end. 

по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'

 

uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of                 1 : write ( 'на дереве сидела ' ,n , ' ворона' );                 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' );                 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' );                 end else write ( 'ветка обломилась! ' ); end; readln; end.