Найти сумму всех двух значных чисел

Плис, напишите программу на turbo pascal

Спасибо

Program summa;                  Var a, b, x:  integer;                   Begin                   Write (‘vedite - a, b');                    Readln(a, b);                    X:=a+b;                    Writeln(‘x =’,x);End.