Помогите пожалуйста!3. Найдите оплошности в программе и запишите исправленную программу в

Помогите пожалуйста!
3. Найдите оплошности в программке и запишите исправленную программу в тетрадь:
Program 3 funkciy;
Var x:y: integer
Writeln (введите значение х);
Readln(х);
Begin
If xgt;0 then y:=x;
else y:=x*x;
writeln(значение функции , y);
end.
4. Дана программка на языке Паскаль:
Program a2;
Var a, b, c, min: real;
Begin
Writeln (введите 3 числа);
Readln(a, b, c);
min:=a;
if b