Составить программу на языке pascal -вычислить s, r, r, p равностороннего треугольника, а-сторона. , нужно!

Uses crt; var a: integer;     s,r,r2,p: real; begin  write ('введите сторону a: ');   readln (a);   s: =((a*a)*sqrt(3))/4;   r: =(a*sqrt(3))/3;   p: =3*a;   r2: =(a*sqrt(3)/6);   writeln ('площадь равностороннего треугольника: ',s: 1: 2);   writeln ('радиус описанной вокруг равностороннего треугольника окружности  ',r: 1: 2);   writeln (' радиус вписанной в равносторонний треугольник окружности: ',r2: 1: 2);   writeln ('периметр равностороннего треугольника: ',p: 1: 2); end.

Вирус —

Басқа программалар мен файлдарға өз көшірмесін автоматты түрде кірістіре отырып, файлдарды «бүлдіретін» компьютерлік шағын бағдарлама (1—2 Кб) немесе макрос. Зақымданған мәліметтерді жедел жадқа жүктеуде онда орналасқан басқа файлдарға өтіп, оларға да зақым келтіре алады. Вирустардың мәлімет түтастығын жоятын көптеген қауіпті қосымша әсерлері бар, олар — қатқыл дискінің қүрылымдық бөлімдерін (бөлімдердің түпкі кестесін бұзу арқылы) бүлдіреді, қатқыл дискіні қайта пішімдеп жібереді, файлдарды өшіріп тастайды немесе құрамын өзгертіп жібереді және т.б.;

Вс# такой код получился)) результат прикрепил в виде картинки, правда весь не поместился))   если нужно, могу скинуть готовую программу) double c;             int x=0; int y = 0;   int z=0;       for (int i = 100; i < 1000; i++)              { c = i % 9; if (c == 0)    {                int b = i;                   x = b / 100;               b = b % 100;             y = b / 10;               b = b % 10;               z = b;               if (x == 0 || x == 1 || x == 4 || x == 5 || x == 8 || y == 0 || y == 1 || y == 4 || y == 5 || y == 8 || z == 0 || z == 1 || z == 4 || z == 5 || z == 8) { if (x ! = y & & x ! = z & & z ! = y) console.writeline(i); }              }                                      }                 console.readline();