Найти обьем шара радиуса R и его площадь его поверхности​

Для программы обычно необходимы входные значения и соответственно то, что она возвращает. Вот, если она принимает с каждой новой строки (ввел длину одной стороны - Enter) по одному значению. На выходе она отдаст "true" - истина (если хоть две стороны равны) или "false" - ложь.

var a, b, c: integer;
begin
readln(a);
readln(b);
readln(c);
if (a=b) or (a=c) or (c=b) then writeln('TRUE - trikutnik rivnobedrenyj')
else writeln('FALSE - trikutnik ne rivnobedrenyj');
end.

Код полностью рабочий, только что проверен. Текст в 'кавычках' можно заменить на любой другой, но не используя символов кириллицы. Писать только на англ раскладке vot tak, kak bi eto ne bilo ushasno or typicaly print in English. Все знаки препинания и другие символы необходимо переписать в точности, не забывайте.

Если паскаль, лови...
Во первых для генерации рандомного числа используется метод random(x), но он генерирует число от 1 до x, и чтоб он генерировал от какого то определенного, надо из x вычесть от какого числа генерировать, а потом к сгенерированному прибавить его random(x - n) + n. Где x - До какого числа, а n - от какого. 
Для нахождения максимального числа мы будем использовать метод max, который принимает два аргумента (какие числа надо сравнить), допустим max(5,10) вернет 10, max(-1, -5) вернет -1. Так же есть min - нахождение минимального.
...
А теперь сам код:
begin
var a := random(30) + 10; 
var b := random(30) + 10;
writeln('a:' + a); 
writeln('b:' + b);
writeln(max(a,b)); 
end.
...
Если не сложно нажми " " ;)