) 9.Вася давно увлекается химией и потому хорошо знает, что объёмы реагентов для реакции отмерять нужно точно. И вот в самый важный момент куда-то затерялась мензурка! Получится ли у Васи отмерить 100 мл воды, если в наличии имеются лишь две пустые ёмкости объёмом 500 и 300 мл? Какое минимальное количество переливаний для этого потребуется?
В ответе укажи минимальное количество переливаний или 0, если отмерить 100 мл в данных условиях невозможно.
​

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

вот так понятней буде)) ну и более правильно, для

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end. 

я попробывала у меня получилось имя даша

var s1, s2: string;

begin writeln('введите строку'); readln(s1); writeln('введите слово'); readln(s2); writeln('позиция слова в строке'); writeln(pos(s2, s1)); end.