Напишите 3 задачи с решением на языке паскаль

1)Вывести на экран слово 'Привет, мир'.

Решение

Program hi;

Var

Begin

Writeln('Привет, мир') ;

End.

2)Ветвление, вводится число а, если a>1 то a*2, или a*a

Решение

Program g;

Var

a:integer;

Begin

Readln(a) ;

if a>1 then

a:=a*2

else

a:=sqr(a) ;

Writeln(a) ;

End.

3)С клавиатуры вводится число,