Помогите плиз написать программу на Паскале. На первой фотке то, по чему надо писать программу, далее дополнительная инфа
очень срочно!! добавлю баллы за правильный ответ!!!!!!!!!

Большое спасибо!!

Спасибо!

Пожалуйста, успехов!

vara,b,c:real;beginwrite('Введите значение A=');read(a);write('Введите значение B=');read(b);if A>B thenc:=aelsec:=b;write('C=', c);end.//////////////////////////////////////////Входные данные:A=2B=5///////////////////////////////////////////Выводные данные:C=5

var  a, b, c: integer;begin  write('Введите a,b ');readln(a,b);  if a>b then c:=a else c:=b;  writeln('c = ',c);end.Тест №1Введите a,b 5 6c = 6Тест №2Введите a,b 7 5c = 7