Программу сделать по pascal, на подобии такой же только надо сложение дробей program summer; var a, b, c: integer; begin readln (a,b) ; c: =a+b; write (c); end

Если нужно, как в моем комментарии, то 
Program summer;
var a, b, c: real;
Begin
Readln (a,b) ;
c:=a+b;
write (c);

End.