Даю 30 баллов!!!!!!!!!!!!!!!Надо составить программку в паскале!!!!!!!!!!!Помогите очень

Var a,b,c:real;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
if b lt; a then a:=b;
if c lt; a then a:=c;
WriteLn('Min = ',a);
End.



Var y,x:real;
Begin
Write('x = ');ReadLn(x);
if x gt; 5 then y:=3*x+1
else y:=2*x-2;
WriteLn('y = ',y)
End.



Var
   A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A gt; 0 then Write('Это число положительное')
else Write('Это число не является положительным')
End.