задача1

var
x,y: real;
begin
writeln ('введи x');
read (x);
if (x<=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.