решите задачи по информатике!!!!! помогите!!!!! срочно нужно!!!!!

задача1

varx,y: real;beginwriteln ('введи x');read (x);if (x<=0) then y:=0 else y:=sqrt(x);writeln ('y=',y) ;end.

задача2

varx,e,d,n: integer;beginwriteln ('введи число');read (x);e:=x mod 10;d:=x div 10;n:=e+d;writeln ('сумма цифр числа равна ',n) ;end.