[stivin]

Код:

program test;
{$APPTYPE CONSOLE}
Var d,c,b:real;
begin
writeln ('vedite dva chesla');
Readln (c,d);
b:=Sqrt(Sqrt(sqr(c)-sqr(c)));
read;
end.

Вводятся 3 числа, а должно 2, после того как я ввиду 3 числа программа закрывается

[Bargest]

Вводится 2 числа, потом выполняется строка b:=блаблабла, потом снова чтение и выход. Что тут странного?
И код оформляй через [ code] [ /code] (без пробелов)

[stivin]

а как сделать чтоб выводило?

[Bargest]

Код:

WriteLn(b);

Вообще удивительно, знать про read и не знать про write.