ЗАДАЧА ПО ИНФОРМАТИКЕ! ПОМОГИТЕ ПЛИЗ) 1. Значение переменной х присвоить в…

Задача №1. Код на языке PascalABC: program Z1; uses crt; varx,y: real; beginwriteln ('Введите X '); readln (x); If x>0 then y: =sqrt (x) elsey: =sqr (x); writeln ('X=',x,'Y=',y); end. Задача №2.program Z2; uses crt; vara,b,a1,b1,r: real; beginwriteln ('Введите 1 число '); readln (a); writeln ('Введите 2 число '); readln (b); a1: =sin (a) /cos (a); b1: =sin (b) /cos (b); r: =a1+b1; writeln ('1 число: ',a,' 2 число: ',b,' 3 переменная: ',a1); writeln (' 4 переменная: ',b1,' Сумма 2 последних переменных: ',r); end.