Помогите написать программу в Турбо паскале.

1.
вар а, б: реал;
бегін
реад (а, б) ;
іф а>б тхен врітелн (а) елсе врітелн (б) ;
енд.
2.
вар х, у: реал;
і:інтеджер;
бегін
х: =0;
фор і:=1 то 10 до
бегін
у: =5*х+3;
вріте ('х=', х, 'у=', у) ;
врітелн;
х: =х+0,5;
енд;
енд.
3.
вар х, у: реал;
і:інтеджер;
бегін
х: =0;
вхіле х<=5 до
бегін
у: =5*х+3;
вріте ('х=', х, 'у=', у) ;
врітелн;
х: =х+0,5;
енд;
енд.
4.
вар х, у: реал;
і:інтеджер;
бегін
х: =0;
репеат
у: =5*х+3;
вріте ('х=', х, 'у=', у) ;
врітелн;
х: =х+0,5;
унтіл х>5;
енд.
5.
вар а: аррай [1..13] оф реал;
с: реал;
і, к: інтеджер;
бегін
фор і:=1 то 13 до
реадлн (а [і]);
і:=1;
вхіле і<=13 до
бегін
іф а [і] мод 2 =0 тхен бегін с: =с+а [і]; к: =к+1; енд;
і:=і+2;
енд;
врітелн ('сумма=', с, 'количество=', к) ;
енд.
6.
конст н=5;
вар а: аррай [1..н, 1..н] оф реал;
с: реал;
і, к: інтеджер;
бегін
фор і:=1 то н до
фор к: =1 то н до
реадлн (а [і,к]) ;
с: =а [1,1];
фор і:=1 то н до
фор к: =1 то н до
іф а [і,к]

1)
Uses Crt;
Var A,B:Integer;
Begin
ClrScr;
WriteLn('Введите первое число');
Read(A);
WriteLn('Введите второе число');
Read(B);
If (A>B) Then B:=A;
WriteLn('Большее число: ',B);
Read;
End.