Question

дано четырехзначное числою определить сумму первой и последней цифры и 2 и 3 помогите написать программу по паскалю

Answer 1

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.