Создать программу по турбопаскаль вывести ответ желтым цветом даны три A,B,C числа найти максимальное

решение на Turbo Pascal 7.0

uses crt;
var max, a, b, c: integer;
begin
clrscr;
randomize;
a:=random (50);
b:=random (50);
c:=random (50);
write (' Даны числа ', a:4, b:4, c:4);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
writeln;
textcolor (yellow);
writeln (' max =', max);
readln;
end.

if a > b then max:=a else max:=b;
if c > max then max:=c;

Раскрашивай сам)

примени эту программу
{êîòîðàÿ âûâîäèò íà ýêðàí ïîñëåäîâàòåëüíîñòü ïàð ÷èñåë êàæäûé ðàç
îòëè÷èòåëüíûì öâåòîì, âûáðàííûì ñëó÷àéíûì
Black=0; Blue=1; Green=2; Cyan=3;
Red=4; Magenta=5; Brown=6; LightGray=7;
DarkGray=8; LightBlue=9; LightGreen=10; LightCyan=11;
LightRed=12; LightMagenta=13; Yellow=14; White=15;
}
Program R;
uses Crt ;
var i,a:integer;
begin
randomize;
for i:=1 to 4 do begin
textcolor (random(14)+1);
gotoxy (1,i);
writeln(random(2)+1);
end;
for a:=4 downto 1 do begin
textcolor (random(14)+1);
gotoxy (5,a);
writeln(random(3)+1);
end;
Readln;
end.

«Кот ученый!» - который тебе написал, это бывший ник «Романа Максимова» - -вчера еще был "Зотиков", который тебе ответил, будет у тебя деньги выпрашивать за решения– кидает тут всех тупо на бабки! ныкается как крыса под разными именами)) Сидит на даче безработный старпёр С НЕМЫТЫМИ САЛЬНЫМИ ВОЛОСАМИ и кидает студентов!!! Моего друга кинул на 320 руб – денег не вернул!!! У этого мошенника Зотикова-Леоновой – есть еще страницы - ИХ УЖЕ ЗАБЛОКИРОВАЛИ ЗА МОШЕННИЧЕСТВО - он с трёх страниц кидает одновременно!!! Имя сменил только. Может написать и с другой почты - будьте осторожны!!!!