Создать кроссворд на тему "Технология Мультимедиа" Во от 8 до 12.

Var s1,s2,s3:string;
 v1,v2,v3,r1,r2,r3:integer;
begin 
write('1 имя : '); readln(s1); 
write('вес и рост : '); readln(v1,r1); 
write('2 имя : '); readln(s2); 
write('вес и рост : '); readln(v2,r2); 
write('3 имя : '); readln(s3); 
write('вес и рост : '); readln(v3,r3); 
writeln(s1,'+',s2,'+',s3,' = ',v1+v2+v3,' кг'); 
writeln(s1,'+',s2,'+',s3,' = ',r1+r2+r3,' см');end.

Пример:
1 имя : Петя
вес и рост : 55 160
2 имя : Вася
вес и рост : 40 150
3 имя : Коля
вес и рост : 48 155
Петя+Вася+Коля = 143 кг
Петя+Вася+Коля = 465 см

1. Очень много опечаток. Где-то забыли " ;", где-то лишняя скобка.  В функции sqrt вместо q ввели g и т.п.
2. Программа не дописана до конца.
Вот исправленный код:
program kvadrat;

var
  D, a, b, c: integer;
  x1, x2: real;

begin
  writeln('a,b,c');
  readln(a, b, c);
  D := b * b * -4 * a * c;
  if D < 0 then writeln('Корней нет') else
  if D = 0 then
  begin
    x1 := -b / (2 * a);
    writeln('решение уравнения', x1);
  end
  else if D > 0 then begin
    x1 := (-b + sqrt(D)) / (2 * a);
    x1 := (-b - sqrt(D)) / (2 * a);
    writeln('решения уравнения', x1, ' ', x2);
  end;
end.