Построй на экране с исполнителя Чертёжник квадрат, длину его стороны введи с клавиатуры и рассчитай площадь этого квадрата.

ДиалогКвадрат
{
int d;
вывод "Введите длину стороны квадрата";
ввод ;(?)
Квадрат ( d );
вывод "Площадь квадрата со стороной ",d,
" равна ",(?) ;
}
Квадрат ( int d)
{
опусти_перо;
вектор ( 0, d); вектор ( ?
, 0 );
вектор ( 0, - d ); вектор ( -d , 0 );
подними_перо;
ОТВЕТ ПОД ВО НАПИШИТЕ

uses crt; var  i,s: integer; begin  i: =2; s: =1;   while i< =10 do  begin    s: =s*i;     i: =i+2;   end;   write(s); end.

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

x - информационный вес одного символа

n - мощность алфавита (кол-во символов)

размер содержащейся в тексте информации находим по формуле:  

k - кол-во символов в тексте 

амазонка 

- один символ несет 8 битов (1 байт)

- байт в письме амазонки

омега:  

один символ несет 7 битов

байт в письме омеги 

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.