Program
pr1;
uses
graph,crt;
var
gd,gm:integer;
begin
gd:=0;gm:=0;
initgraph(gd,gm,
'c:\bp\bgi');
setcolor(12);
circle(200,200,50);
line(200,202,200,175);
line(200,202,180,202);
arc(200,150,0,180,15);
line(190,250,155,265);
line(210,250,240,265);
line(155,265,240,265);
outtextXY(193,155,'12');
outtextXY(195,235,'6');
outtextXY(235,200,'3');
outtextXY(155,200,'9');
readln;
readln;
<span>closegraph;
end.</span>
Конечно, в таком стиле не пишут, но это специально для Вас, чтобы было максимально похоже на "алгоритм".<u>
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:integer;
var y:real;
Read(x);
if x>0
then y:=Sqrt(x)
else y:=Abs(x);
Writeln(y)
end.
52 мб = 52 * 1024 кб = 53248 кб
24576 бит = 24576 / 8 байт = 3072 байт = 3072 / 1024 кбайт = 3 кбайта
Program A;
var x,y:integer;
begin writeln('Введите два числа:'); readln(x); readln(y); if x > y then writeln(x * x) else writeln(y*y);end.