Безотлагательно Помогите пожалуйстаНаписать программку на языке программирования Паскаль 1)зная

Var
   t:integer;
Begin
Write('Введите температуру воздуха: ');ReadLn(t);
if t gt; 0 then Write('Дождик')
else Write('Снег')
End.



Var
   A:integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
A:=Абс(A);
WriteLn(A div 100,'+',(A div 10) mod 10,'+',A mod 10,' = ',A div 100+(A div 10) mod 10+A mod 10);
End.



Var
   A,B:integer;
Begin
Write('Введите два числа: ');ReadLn(A,B);
if Agt;B then Write('Квадрат наименьшего: ',B*B)
else Write('Произведение чисел: ',A*B)
End.