Это в паскале нужно сделать определитель, является ли треугольник со сторонами а, b, c равносторонним заранее

Var a, b, c: real; begin write('введите a, b, c> > '); read(a, b, c); if (a=b) and (b=c) then writeln('треугольники равносторонние') else writeln('треугольники не равносторонние'); end.

Program kolobok; var zver: string; begin     writeln('ispekla babka kolobka i postavila yego na okoshko ostuzhatsya');     writeln('ubezhal kolobok ot deda i ot babki i pokatilsya po dorozhke');     writeln('kolobok katitsya, a navstrechu yemu zver');     writeln('vvod zverya');     readln(zver);         if zver = 'lisa' then         begin             writeln('kolobok poyot pesenku dva raza');             writeln('proshchay, kolobok ');         end     else         begin             writeln('kolobok poyot pesenku');             writeln('katitsya dalshe');         end; end.

#include "stdafx.h" #include < iostream> using namespace std; int main() { setlocale(lc_all, "russian"); float gip, katet1,katet2,radius; cout < < "введите величину гипотенузы ( см ): "; cin > > gip; cout < < "введите величину известного катета ( см ) : "; cin > > katet1; katet2 = sqrt((float(gip*gip - katet1 * ; radius = (katet1 + katet2 - gip) / 2; cout < < "второй катет равен: " < < katet2 < < " см \nрадиус вписанной окружности: " < < radius < < endl; return 0; } использовал формулу для радиуса radius = (katet1+katet2-gip)/2 для нахождения катетов katet2 = корень квадратный из gip^2-katet1^2 писал в visual c++, советую там и проверять. чтобы с синтаксисом проблем не возникло