Дан текст, в котором имеются числа. Отыскать их сумму. Отыскать наивысшую

немножко не то

ща напишу решение на 2-ое

все в одном нужно

а понятно

Program заглавие;var a,b,c:real;a:=пишешь число;b:=пишешь 2-ое число;c:=a+b:writeln ('сумма одинакова ' ,c:10:2);

Program заглавие;var a,b,c,max:real;a:=пишешь число;b:=пишешь 2-ое число;c:=a+b:writeln ('сумма одинакова ' ,c:10:2);writeln ('введите 3 вещественных числа ');readln(a,b,c);if a>=b then max:=a else max:b;if c>max then max:=c;writeln ('max ' ,max:10:2);readln;end.

ну как?

текст может содержать и буквы

ну тогда яхз