Відповідь:
var a:real;
begin
a:=StrToFloat(Edit1.Text);
if a=4
Then Label1.Caption:= 'Начальная школа';
Else a
Then Label1.Caption:= 'Начальная школа';
Else a=8
Then Label1.Caption:= 'Средняя школа';
Else a
Then Label1.Caption:= 'Средняя школа';
Else a=11
Then Label1.Caption:= 'Старшая школа';
Else a>8
Then Label1.Caption:= 'Старшая школа';
end;
Пояснення: