Фото. 1 вар. Срочно. Это Pascal, если что.

1) var  

s:string[100];

begin

 write('Введите фамилию: ');

 readln(s);

 writeln;

 writeln('Символов: ',length(s));

 writeln('3ий символ: ',s[3]);

end.

2)var

y,x:real;

begin

readln(x);

y:=(sqr(x)+sqrt(x))/10;

writeln(y);

end.

3)var

g:integer;

begin

writeln('Год рождения: '); readln(g);

if 2019-g>18 then writeln('Совершеннолетний')

 else if 2019-g<18 then writeln('Увы')

   else writeln('В течение этого года станет совершеннолетним')

end.

4)var

sum,n,i:integer;

begin

 readln(N);

 sum:=0;

 for i:=10 to N do  

   sum:=sum+i;

 writeln(sum/(i-9));

end.

5)var

a,b:integer;

begin

 repeat

   readln(a,b);

   writeln('Repeat');

 until ((a>=0) and (a mod 2=0)) or ((b>=0) and (b mod 2=0));

 writeln('a*b= ',a*b);

 writeln('a+b= ',a+b);

end.