привет исправить код на паскале var FirstValue, SecondValue, ThirdValue, FourthValue, S, perimetr, stoimost : double; begin writeLn('введите первое число'); read(FirstValue); writeLn('введите второе число'); read(SecondValue); writeLn('введите третье число'); begin if (FirstValue = SecondValue or FirstValue = ThirdValue or SecondValue = ThirdValue) then begin p:= (FirstValue + SecondValue + ThirdValue); q:= p * 0.5; s:= Math.Sqrt(p * (p - FirstValue) * (p - SecondValue) * (p - ThirdValue)); WriteLn(s); end else begin perimetr:= FirstValue + SecondValue + ThirdValue; WriteLn(perimetr); end; end; end.

1)Алгоритм шифрует блок 64 бита. На выходе получается блок 64 бита.
То что данные зашифрованы не видно. И не должно быть видно. Другое дело, что часто бывает видно, что данные НЕ зашифрованы, когда они символьные, например.
Классическая книга: Брюс Шнайер. Прикладная криптография. Там этот алгоритм описан и приведена его реализация на языке си
2)Четыре класса должны покрасить забор вокруг школы. Классы Б.В.Г могут выполнить эту работу за 3часа. Классы А, В, Г могут выполнить эту работу за 2часа. Если же будут работать классы А и Б, то работа будет выполнена за 5часов. За какое время могут покрасить забор все четыре класса?  Решение:       p (производительность)        t (время)     А (работа)  Б + В + Г          р(б) + р(в) + р(г) = 1/3           3ч.               1  А + В + Г          р(а) + р(в) + р(г) = 1/2           2ч.               1  А + Б                 р(а) + р(б)  = 1/5                     5ч.              1 А + Б + В + Г                                                     ?ч.               1   Прибавим все р, получим:  2р(а) + 2р(б) + 2р(в) + 2р(г)  =    2(р(а) + р(б) + р(в) + р(г)) =    (р(а) + р(б) + р(в) + р(г) =       Тогда время t  =                                  ответ:                        
   

Var _500,_100,_50,_10,money_get:integer;beginwriteln('Введите стоимость товара');readln(money_get);while(money_get mod 10 <> 0) do        begin        writeln('стоимость должна делиться на 10, попробуйте еще раз');        readln(money_get);        end;while (money_get>=500) do        begin        _500:=_500+1;        money_get:=money_get-500;        end;while (money_get>=100) do        begin        _100:=_100+1;        money_get:=money_get-100;        end;while (money_get>=50) do        begin        _50:=_50+1;        money_get:=money_get-50;        end;while (money_get>=10) do        begin        _10:=_10+1;        money_get:=money_get-10;        end;
writeln(_500,': 500 рублей',_100,':100 рублей',_50,':50 рублей',_10,':10 рублей');

readln;end.