[firstvirus]

Program Kvadratnoe_yravnenie;
var a,b,c,D,x1,x2:real;
label 1,2,3;
begin
writeln('Введите число a');
read(a);
writeln('Введите число b');
read(b);
writeln('Введите число с');
read(c);
D:=b*b-4*a*c;
if D<0 then write('Корней нет');
else
if D=0 then x1:=-b/2*a
begin
write('Уравнение имеет два одинаквых корня x=', x1);
end;
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
write('Уравнение имеет два различных действительных корня ');
writeln('x1=',x1);
writeln('x2=',x2);
end;
end.

begin...end - используются как скобки исполняемого кода. Если ты не хочешь такие куски ставить в основной код то помести код в функцию и вызывай ее, но так будет дольше выполнятся программа, хотя это не заметно при нынешних мощах. Про существование goto забудь как страшный сон. Нет его и пользоваться низзя.
Я когда учился в РМТ у нас препод ставил баллы за выполненную работу. За goto в программе он ставил неуд без возможности пересдать.