Дипломная работа: Алгоритмический язык Паскаль

program QUARD;

var A,B,C: real; DETER: real;

begin

read(A,B,C); DETER:= sqr(B)-4*A-C;