Program UVA;
var a,b,x,y,z:real;
begin
read (a,b);
x:=(a*a)/(b+1);
y:=(a*a*x*x)/b;
z:=sqrt(x+1)+sqrt(2*y);
read (z);
end.
Program p1;
var x1,x2,y1,y2:integer;
function dlina(xx1,yy1,xx2,yy2:real):integer;
begin
dlina:=round(sqrt(sqr(xx1-xx2)+sqr(yy1-yy2)));
end;
begin
writeln('Введите координаты первой точки');
readln(x1,y1);
writeln('Введите координаты второй точки');
readln(x2,y2);
writeln('Расстояние между точками:',dlina(x1,y1,x2,y2));
end.
2^40бит=2^40/2^33ГБайт=2^7Гбайт=128Гбайт
нарисовал схему, вроде все видно
Пк- средство автоматической обработки информации