8 клас. Практична робота: «Розробка алгоритмів з вкладеними повтореннями та їх реалізація у вигляді програми»Зделать в програме Lazarus. Мова Паскаль

Язык не указан, Default-Language это C. На нём и напишу.
1.
#include <stdio.h>
int main() {
    int n;
    scanf("%d", &n);
    if (n % 10 == 4 || n % 10 == 7 || n / 10 == 4 || n / 10 == 7)
        printf("YES\n");
    else
        printf("NO\n");
    return 0;
}
Для порядку скажу что на Perl это можно реализовать проще.
#!perl
%h { 4 => 0, 7 => 0};
<>;
if (exists $h{$_%10} || exists $h{$_/10}) {
    print "YES\n";
else {
    print "NO\n";
}
Но мы ушли от темы. Итак, 2. Тут всё ещё проще:
#include <stdio.h>
int main() {
    int n;
    scanf("%d", &n);
    if (!(n % 3))
        printf("Multiple of 3\n");
    else
        printf("Not multiple of 3\n");
    if (n % 10 == 3)
        printf("Ends by 3\n");
    else
        printf("Not ends by 3\n");
    return 0;
}
Тут более простой реализации на другом известном мне языке нету, так что приводить дополнительно ничего не буду.

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  // 1
  Println('1)',ArrRandom(10,-20,20).Println.Where(x->x<0).Count);
  // 2
  var b:=ArrRandomReal(20,-10,10); b.Println;
  Println('2)',b.Min+b.Max);
  // 3
  var c:=ArrRandom(20,-50,50); c.Println;
  Println('3)',c.Where(i->i.IsEven).Count,
    c.Where(i->i<0).Aggregate(1.0,(p,i)->p*i))
end.

Тестовое решение:
18 2 16 -14 -7 4 17 -2 -10 -7
1) 5
-2.40518030356857 9.37039580166824 -9.61575433593977 4.22255247562311 -0.090912082274869 -0.263467659365137 3.82946007597701 5.07986054526635 2.27932300059093 -9.80178165240296 0.365445125086906 9.8644010815138 -3.84280629169327 -3.11842201888488 6.69959188285265 9.19731859080369 0.582041605646742 -9.96684386393374 8.57817518458617 -5.38901657582681
2) -0.102442782419939
13 22 -13 -44 10 10 35 -48 -16 7 -48 37 -27 35 7 7 -39 44 -26 12
3) 10 577298202624