Вот это скопируйте и вставьте.
program chdast;
var a : integer;
begin
write('Введите двузначное число');
read(A);
if (a mod 10)=(a div 10) then writeln('цифры равны по значению');
if (a mod 10)>(a div 10) then writeln('вторая цифра больше первой');
if (a div 10)>(a mod 10) then writeln('первая цифра больше второй' );
end.
Всё просто. До из суммы вычитается загаданное число. Возьмите число 0 и сами всё поймёте
<u>1 Вариант</u>
1) Функция сравнивает два числа и если первое число больше второго, то находит их сумму, в противном случае находит их произведение.
a) a=6 b = 5; func(a,b) = 11
б) a=5 b = 6; func(a,b) = 30
2)
program chet;
var a:integer;
function check(x:integer):byte;
begin
if x mod 2 = 0 then check:=1 else check:=0
end;
begin
readln(a);
write(check(a))
end.
<u>Вариант 2</u>
1) Функция производит возведение числа x в степень y
a) x = 4 y = 3 ; s(x,y) = 64
б) x = 5 y = -2; s(x,y) = 0.04
2)
program module;
var a:real;
function modul(x:real):real;
begin
if x<0 then modul:=-x else modul:=x
end;
begin
readln(a);
write(modul(a))
end.
Линейная структура на языке<u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.
<span><em /><em /><em /><em>Я, конечно, не понял, что такое "точнее нужна нач программа для того что бы он вышел", но вот прототип игры из примеров паскаля, в которой невозможно победить (запускать через Pascal.ABC, в остальных версиях могут не работать лэйблы).</em></span>