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

Question

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

---

Answer 1

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



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



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