Question

здравствуйте, решите пожалуйста

Answer 1

Ответ:

1.?

2.var a,b,i,n,min:integer;

begin

writeln('lnput value');

read(a);

min:=a;

for i:= 1 to 2do begin

writeln('lnput value')

read(a);

if min>a then min:=a;

end;

writeln('min=',min);

end.

3.?

10.1.Начало

2.Ввод

3.а>0

4.налевоа=а+1, направо а<0(налево а=а-2,направо а=10)

5.Вывод а