нужно написать программу,
Помогите пожалуйста ​

Номер 2.

program test; // Название программы testvark,t:real; // переменныеbegin // Начало кодаWriteLn('Введите значение t'); // Выводим текстReadLn(t); // Считываем значение в переменнуюif t>0 then k:= sqr(t)+7*t; // sqrt корень.if t=0 then k:=3;if t<0 then k:= sqrt(-t);WriteLn(k);end.

Пишу на языке PASCAL.

№1

program name1; // Название программы name1

var a: integer; // Объявляем переменные

begin

WriteLn('Введите число: ');

  ReadLn(a);

if a>0 then writeln('Число положительное');

if a=0 then writeln('Число равно 0')

 else writeln('Число отрицательное');

end.