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