1) Можно было и проще: просто вывести цифры через запятую, но коль число...:)
var a, b, c: byte;
begin
readln(a, b, c);
writeln(a * 100 + b * 10 + c);
end.
2)
var a, b, c: real;
begin
readln(a, b, c);
if (a < b) then a := b;
if (c > a) then a := c;
writeln(a);
end.
3) Неполная картинка
4)
var a, c: integer;
begin
readln(a);
while (a > 0) do
begin
if (a mod 10 = 5) then inc(c);
a := a div 10;
end;
writeln(c);
end.
5) Тоже не всё видно=)