Помогите ,пожалуйста ,решить систему уравнений в программе паскаль!!!!

Первая:uses Crt;var x, y: integer;begin ClrScr; Write(' x = ');  ReadLn(x); if x<5  then y:=x+3         else y:=x*x; WriteLn(' y = ', y); ReadLn;end.Ну и вторая задача решается совершенно аналогично!Попробуй по программе, приведенной выше. Больше пользы тебе....