[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 числа программа закрывается