program KiemTraTamGiac;
var
  a, b, c: integer;
begin
  writeln('Nhap vao ba so a, b, c:');
  readln(a, b, c);

  if a + b + c = 180 then
    writeln('a, b, c la 3 goc trong cua mot tam giac.')
  else
  begin
    writeln('a, b, c khong phai la 3 goc trong cua mot tam giac.');
    for var i := 1 to 30 do
      writeln('Thong bao ', i);
  end;
  readln;
end.