Прошу. надо успеть за 2 часа!

паскаль:

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.

месяцы,каждый месяц в каждом времени года-это и есть классификация

var a: integer;

s: string;

begin

  read(a);

  case a of

      1: s: ="i";

      5: s: ="v";

      10: s: ="x";

      50: s: ="c";

      100: s: ="c";

      500: s: ="i";

      1000: s: ="m;

  end;

  writeln(s);

end.

римские соответствия не все помню

т.к. в ящике имеется 3 чёрных и 5 белых шаров, то наименьшее число шаров нужно взять из ящика(не заглядывая в него), чтобы среди вынутых шаров:

1) 6

2) 4

3) 7

4) 5