Website and domain for sale: mail@discussmain.com

four-digit is given I chisloit to determine the sum of the first and last figure and 2 and 3 Please consider to write the program for pascal

181
uses crt; var s: String; i1, i2, err: Integer; r: Integer; begin readln (s); clrscr; val (s[1], i1, err); val (s [Length(s)], i2, err); r: = i1 + i2; writeln(r); end.
344
Answer add