Вообще-то, в окружность можно вписать квадрат только одного размера. Каждая его диагональ будет равна диаметру окружности, то есть 2R. Площадь квадрата 
, где d - диагональ квадрата. d = 2R, значит 
Программа на PascalABC может иметь вид:
Program KWADRAT;
var
r: real;
begin
var s:='**** -=Alphaeus=- ****'; var k:=0;
for k:=1 to 22 do begin write(s[k]); sleep(47) end;
writeln; write('Введите R = '); readln(r);
writeln('Площадь вписанного квадрата равна ',2*r*r);
end.
uses crt;
var ch,a,b:integer;
begin
readln(Ch);
a:=ch div 10;
b:=ch mod 10;
if a >b then writeln(a) else writeln(b);
readln;
end.
1 Мегабайт это 1024 Килобайта, 1048576 байт и 8388608 бит
1 Мегабайт это 1/1024 от Гигабайта и 1/1048576 от ТераБайта.
Особенностью единиц измерения в информатике в отличии от привычных единиц (метр - кг и тп) является то, что в единице следующего уровня содержится не 10, 100 или 1000 единиц предыдущего, а 2^10, за исключением перехода от бит к байтам, где в 1 байте содержится 8 бит.
Https://support.microsoft.com/ru-ru/help/17073/windows-using-keyboard
У if'ов небыло begin и end;
у значений массива n небыли проставленны ' ' одинарные кавычки для букв.
у b и v в условиях не те типы данных, поэтому немогут они внутрь себя вместить букву, а только цифры, исправил с integer на char.
не знаю что должна выводить программка, begin и end'ов нету и у циклов. Без begin и end'ов трудно мне просчитать что выведет программа.
Program shifer;var z,a,m,s,j,x:integer;b,v:char;k:array[1..100] of char;n:array[1..100] of char;BEGINn[1]:='а';n[2]:='б';n[3]:='в';n[4]:='г';n[5]:='д';n[6]:='е';n[7]:='ё';n[8]:='ж';n[9]:='з';n[10]:='и';n[11]:='й';n[12]:='к';n[13]:='л';n[14]:='м';n[15]:='н';n[16]:='о';n[17]:='п';n[18]:='р';n[19]:='с';n[20]:='т';n[21]:='у';n[22]:='ф';n[23]:='х';n[24]:='ц';n[25]:='ч';n[26]:='ш';n[27]:='щ';n[28]:='ъ';n[29]:='ы';n[30]:='ь';n[31]:='э';n[32]:='ю';n[33]:='я';n[34]:='а';n[35]:='б';n[36]:='в';readln(a);for m:=1 to a do readln(b); for j:=1 to 33 do x:=0; if b=n[1+x] then begin v:=n[1+x+3]; z:=0; k[1+z]:=v; z:=z+1; end else begin x:=x+1; end; writeln(k);END.
