проверьте правильность - Паскаль

[Livanessa]

Проверьте, пожалуйста, правильность, а то из меня программист как из коровы балерина.
1. Найти ошибки в программе:
Program a;
Cont d=5;
Begin
d:=sqr (d); writeln (′d**2=′d)// не существует функция sqr (d), d – константа,    присваивается   1 раз во второй строке, отсутствует точка с запятой в конце строки, двойной знак умножения.
end.
6. Составьте блок-схему алгоритма и программу на алгоритмическом языке Паскаль для вычисления значения функции по F(z) формуле:

   2z+1, если z≥0          lg(-x), если x‹0
F(z)=                           где z=   
   Sin  z, если  z‹0         √x+1, если x≥0

 


Program my;
var f,x,z: real;
begin
writeln («Enter x»);
readln (x);
if x‹0 then z:=lg(-x)
else
z:=sqrt (x+1);
if z‹0 then f:=sin(z)
else
f:=2*z+1;
writeln (z);
readln;
end.

7.Напишите программу (на алгоритмическом языке Паскаль), результатом работы которой будет вывод на экран таблицы умножения натуральных чисел (0…9) в десятичной системе счисления.

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var i,j,k:integer;
begin
for i:=0 to 9 do begin
 for j:=0 to 9 do begin
 k:=i*j;
 writeln(k);
end;
end;
readln;
end.

[Данила]

1. вам в квадрат д надо возмести? пишется это только d*d

7. делайте циклы не с 0 а с 1,ибо если с 0 ,то он вам выведет помимо всего 19 нулей

6.почему вы в конце выводите z ? вы должны вывести f.

[Livanessa]

 в первом задании нужно найти ошибки  в заведомо неправильно написанной программе. Может, я ошиблась, но по-моему sqr(х) - это стандартная функция ТР или я не права?

В отношении 7 задания поняла свою ошибку, в шестом задании вывод исправила z на f - большущее спасибо.

[Livanessa]

Ой-ей-ей, ещё раз посмотрела 7 задание - там же умножение от 0 до 9 - поэтому и начала с 0.

[Данила]

да,запамятовал я,есть в тп скр..ошибки там не вижу,кроме отсутствия точки с запятой