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

Первая:
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.



Ну и вторая задача решается совершенно аналогично!
Попробуй по программе, приведенной выше. Больше пользы тебе....