Помогите напсать 2 программу,или любую другую.БУДУ СЕРДЕЧНО БЛАГОДАРНА!

к 4 задаче тоже вместо алгоритма написал код, до этого в дороге был. смотри другой вопрос

Спасибо огромное

var  x, y : integer;begin write('введи х: ' ); readln(x); if x < 5   then y := (4*x*x + 1)/(x-5);  else y := 3*x*x -2 writeln(y);end