Программа в паскаль авс определите вид треугольника по известным углам при этом если сумма углов не равна 180 градусов, то программа должна сообщить, что введены некорректные данные, проверьте условие

Var a,b,c: real; begin   writeln('введите значения трех углов: ');   readln(a,b,c);   if (a+b+c)< > 180 then writeln('введены некорректные данные')else   if (a=90)or(b=90)or(c=90) then writeln('прямоугольный')else   if (a=b)and(b=c) then writeln('равносторонний')else   if (a=b)or(b=c)or(a=c) then writeln('равнобедренный')else   writeln('разносторонний') end.

артефакт, инстинкт, антрацит, оригинал.

правило шифрования - слова написаны справа налево, т.е. наоборот.

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

    readln

end.