Program pyati;
var a:integer;
begin
Writeln('Введите число');
Readln(a);
a:=a div 100;
a:=a mod 100;
a:=a mod 10;
Writeln(a)
end.
К графическим примитивам в OpenDraw относятся: линии и стрелки; прямоугольники; окружности, эллипсы, дуги, сегменты и секторы; кривые; соединительные линии; трёхмерные объекты (куб, шар, цилиндр и т. д.); текст.
Умножаем как обычно в столбик 11011*101=10000111
var y,x:real;
begin
write('Введите x = ');
readln(x);
if (x<=0) then y:=exp(x) else if x>1 then y:=ln(x) else y:=0;
writeln('y = ',y:0:2);
end.