Помогите написать решение Паскаль в ALGO. Задание 1) Для заданного X вычислить…

1) Var x: integer; Begin write ('x='); readln (x); if x=2 then writeln ('y=',sqrt (x*x) else if (x>=3) and (x <= 6) then writeln ('y=', (3*x*x-5) else writeln ('Решений нет'); End.2) Var x: integer; Begin write ('x='); readln (x); x: =x mod 10; writeln ('Последняя цифра квадрата числа: ',x*x); End.