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

задача1

var
x,y: real;
begin
writeln (введи x);
read (x);
if (xlt;=0) then y:=0 else y:=sqrt(x);
writeln (y=,y) ;
end.

задача2

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