Подготовте сообщения по темам заданий 1-15 для школьного сайта

1, 2, 5, 9 -однозначные числа

10, 25, 40, 41 - двузначные числа

1, 2, 11, 29 - простые числа

если я парвильно понял , то вотvar x,y : integer;

begin

readln(x);

if   x> =0 then y: =1

esle y: = 0;

writeln(y);  

end. 

чесно говоря не уверенна что понимаю

найти первое предложение

пока есть найденное предложение

  перевести его

  записать перевод

  найти следущее предложение

конец цикла

8*200=1600 л. 1600л. надо вылить,чтобы потушить все