Var a : Char;
Begin
For a:='а' to 'я' do Writeln(a,' ',Ord(a));
end.
Begin
Var a:integer;
writeln('введите возраст');
readln(a);
if (a>11) and (a<15) then writeln('подросток')
else writeln('нет');
end.
На паскале:
program prim;
var a,z,x,y,b:real;
begin
writeln('Введите z, x и y: ');
readln(z,x,y);
a:=(44*z+x)/((y*y*y)-5);
b:=(sqr(x)*(sqr(y)-2))+(sqrt(3+z)/8);
writeln('a и b равно ',a ,' ', b);
end.
Если конечно я все правильно понял))