Задание 2. Исправить ошибки программы и вывести вместе с ответом ...

Вера

Задание 2. Исправить ошибки программы и вывести вместе с ответом слово «умница».
 
Program TR
Var a:– integer;
Begin write( введи число )
read ( a)
a =a*a
write (‘a=’, a)
End
 
1)  Что получиться в результате выполнения программы, если было введено число 2 ?
program T;
Var y,x: integer;
begin read (x);
x:=x+10;
if x>20 then  y:=x*x
else y:=x/2;
write (y);
end.