Програму Малюнки, у якій відбувається малювання таких фі- гур (колір задається випадково зі списку: 'blue', 'red', 'yellow",
"green', 'gray', 'brown', 'purple') (мал. 12.6).​

сначало 2 брата садятся в лодку и переплывают на другой берег, один брат остаётся на берегу, другой возращается к отцу и матери. потом в лодку садится отец, переплывает и отдаёт её сыну, тот переплывает к матери и брату. два брата садятся в лодку и переплывают реку, один брат остаётся с отцом, а другой плывёт к матери. переплыв реку он даёт лодку матери. она переплывает реку и даёт лодку сыну, тот плывёт за братом и они в двоём переплывают реку на лодке.

var temp: array[1..31] of integer; k,i: integer;

beginfor i: =1 to 31 do readln(temp[i]);

for i: =1 to 31 do 

if a[i]< 0 then inc(k);

writeln(k);

end.

если паскаль, то вот :

program altzie;

var h: real;

begin

repeat write('введите h ');

readln(a); if a< =0then writeln('ошибка! значение h не может быть нулевым или отрицательным. повторите ввод.');

until h> 0;

writeln('площадь боковой поверхности куба = ', (6*h*h));

readln; end.