Вводится четырёхзначное число (xysz). Вывести сумму xy + sz. Начальные данные необходимо ввести с клавиатуры. паскаль

var N,x,y,s,z:integer;

begin

writeln('Введите 4-значное число');

readln(N);

x:=N div 1000;

y:=N div 100 mod 10;

s:=N div 10 mod 10;

z:=N mod 10;

writeln(x*y+s*z);

end.

program nm13; uses crt; var s1,s2,d,a,diag: real; beginwriteln('vvedi ploschad kruga i ploschad kvadrata'); readln(s1); readln(s2); d: =2*sqrt(s1/3.14); a: =sqrt(s2); diag: =2*sqrt(2*a*a); if diag> d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate ');

readln;

end.

можно назвать - собака 

или 

агент @ мail.ru