Нарисуйте блок-схемы к следующим :
1.ввести три числа (a b c).найти максимальное
2.ввести два числа. если их сумма больше 100,то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза.
3.дано два числа. если их сумма кратна 5,прибавить 1 ,иначе вычесть 2.
4.вести рост человека. вывести на экран "высокий",если его рост превышает 180 см и " не высокий" в противном случае

program;

var

max,val: integer;

label

start, ends;  

begin 

max: =-50;

val: =50;

start:

if val> max then val: =val-10

if val=max then goto ends;  

goto start;  

ends:

end. 

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.

всегда брать столько чтоб спичек на столе оставалось четное

количество  и при этом не делилось на 3

т.е. 4,8,12

сохранить информацию о наблюдаемом объекте 

передать информацию о нём другим людям

испытать на модели работу объекта ,если испытание объекта-оригинала  опасно или дорого