pascal zadatak

trebam uraditi jedan zadatak a ne znam bas najbolje pascal
pa ako mi ko moze pomoc, zadatak nije tezak...

"napisati program koji ucitava jedan trocifren broj i izracunava zbir prve i trece cifre"

hvalla unaprijed

Program zbir;
var x,a,b,zb:integer;
begin
writeln ('Unesi trocifren broj');
readln (x);
a:=x div 100; {uzima cifru stotica}
b:=(x-(a*100)) mod 10; {uzima cifru jedinica}
zb:=a+b; {njihov zbir}
writeln ('Zbir prve i zadnje cifre je ',zb);
readln;
end.


Ako bude potrebno jos bilo kakvo objasnjenje javi se

Program zbir;
uses wincrt;
var x,a,b,zb:integer;
begin
writeln ('Unesi trocifren broj');
readln (x);
a:=x mod 10;
b:=x div 100;
zb:=a+b;
writeln ('Zbir prve i zadnje cifre je ',zb);
end.

Dosta jednostavnije od gore napisanog posta.