Перевести в паскаль 2 часа уже ! прям! взаимная !

var x: real;

begin

readln(x);

if (x> =0)and(x< 3)

then write('y=',sqrt(x+1))

else

if (x> 5)and(x< > 7)

then write('y=',3*x*x-2)

else write('y=',1/x+4);

end.

почитай тут 

виды алгоритмов по способу записи 

1)текстовый

2)графический.

виды алгоритмов по последовательности исполнения шагов-команд

1)линейный

2)разветвляющийся