5европейских государств в алфавитном порядке

германия

испания

португалия

франция

чехия

var age,exper,max_age,work_age: integer;

begin

  max_age: =42;

  work_age: =20;

  read(age,exper);

  if (age< = max_age) and (exper> =20) then writeln('da')

  else writeln ('net')

end.

        №1

var a : real;

begin

read(a);

if (a< 0)   then write(sqr(a))

else write(sqrt(a));

end.

    №2

var x,y: real;

begin

read(x,y);

if (x+y> 35) and (111

end.

поскримтум: паскаль выдаетощибку в номер два то допиши точку с запятой на строке иф