Паскаль ABC Желаю сделать так, что бы если человек писал Да,

Паскаль ABC Хочу сделать так, что бы если человек писал Да, то программка предлагала бы ему ввести значения опять, а она пропускает строку 'Введите коффициент а' и если человек отвечает Нет либо пишет еще что то, она выдавала фразу в конце( Спасибо за внедрение). Что я сделал не так?
program Pr1;

const
H = 'Здрасти, ';
var
a,b,c,d: real;
name: string;
t: boolean;
Begin
writeln('Введите свое имя:');
readln(name);
writeln(H, name, ', вас приветствует программка-калькулятор квадратного уравнения' );
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
if d=0 then
begin
writeln ('X1,X2 =', (-b+sqrt(d)/(2*a)));
end;
if dlt;0 then
begin
writeln ('Dlt;0, корней нет');
end;
if dgt;0 then
begin
writeln('D = ', b*b-4*a*c);
writeln ('X1 =', (-b+sqrt(d)/(2*a)));
writeln ('X2 =', (-b-sqrt(d)/(2*a)));
end;
writeln ('Хотите воспользоваться калькулятором еще раз? Введите T(Да)\F(Нет)');
readln;
if t then
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
if d=0 then
begin
writeln ('X1,X2 =', (-b+sqrt(d)/(2*a)));
end;
if dlt;0 then
begin
writeln ('Dlt;0, корней нет');
end;
if dgt;0 then
begin
writeln('D = ', b*b-4*a*c);
writeln ('X1 =', (-b+sqrt(d)/(2*a)));
writeln ('X2 =', (-b-sqrt(d)/(2*a)));
end
else
writeln ('Спасибо за внедрение');
end.

Даниил Ширвани 2019-04-24 07:48:02

Cчитывать превосходнее в string, а не в boolean

Руслан Делиховский 2019-04-24 07:49:19

Необходимо чтоб человек писал Да/Нет либо T/F?