2по теме "разветвляющийся алгоритмы" : с 1. определить z=min {a,b} 2. вводится температура воды t. если t< 0, то вывести фразу "твёрдое состояние", если t> 100 - "газообразное состояние", в противном случае - "жидкое состояние".

Var a,b,z:integer;
function min(a,b:integer):integer;
begin
if a < b then min:=a else min:=b;end;
begin 
read(a,b);z:=min(a,b);writeln('z =',z);end.