Даны два действительных числа. составьте программу, которая выводит первое число, если оно не больше второго, или их сумму в противном случае.

Program z1;
var a,b,s:integer;
begin
writeln('Введите число');
readln(a);
writeln('Введите число');
readln(b);
s:=a+b;
if a<b then begin
writeln (a) end else 
writeln(s);
end;
end.

Должно быть так примерно