Арслан загадал три целых положительных числа a, b и c. Эти числа он держит в секрете, но он выписал на доску в случайном порядке четыре числа — их попарные суммы (три числа) и сумму всех трех чисел (одно число). Таким образом, на доске в случайном порядке записаны четыре числа: a+b, a+c, b+c и a+b+c. Обратите внимание, что среди загаданных чисел a, b и c могут быть одинаковые значения (в том числе допустимо, что a=b=c). По заданным числам восстановите три загаданных Арсланом числа a, b и c. Найдите три загаданные числа, если на доске написаны следующие числа: а) 3 6 5 4 б) 40 40 40 60 в) 201 101 101 200. Напишите ответы на всех вариантов

Var a,b,c,i,sum,cp:integer;
begin
sum:=0;
cp:=0;
Randomize;
writeln('Посчитайте сложение:');
while i<10 do
begin
a:=random(40)+10;
b:=random(60)+10;
sum:=a+b;
write('Сколько будет ',a,'+',b,'= ');
read(c);
if c=sum then begin
cp:=cp+1;
writeln('Молодец!');
end else writeln('Неправильно');
i:=i+1;
end;
writeln('Всего правильных ответов ',cp);
write('Оценка:');
if (cp<=4) then write('Очень плохо (2)') else
if (cp>=5) and (cp<=6) then write('Удовлетворительно (3)') else
if (cp>=7) and (cp<=8) then write('Хорошо (4)') else
if (cp>=9) then write('Отлично! (5)');
end.

Program figna ; {это название}
var a,b,c,d: integer; {объявление переменных a,b,c и говорим что они целые}
begin {начало}
 writeln('введите три числа'); {запрос чисел}
readln(a,b,c); {ввод чисел}
d:=a*b*c; {умножаем числа и присваиваем d их значение} 
if (d<50) then {если произведение чисел меньше 50 то}
 a:=a*10; {первое число умножаем на десять}
 b:=b*10; {второе число умножаем на десять}
 c:=c*10; {третье число умножаем на десять}
writeln(a); {выводим первое}
writeln(b); {выводим второе}
writeln(c); {выводим третье}
else {иначе}
writeln(d); {выводим произведение}
end. {конец}
P.S. этот символ { } паскаль не читает и означает он коментарий